Const n=10;
var a:array [1..n] of integer;
i,j,k,l:integer;
begin
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(21)-10;
write (a[i],' ');
end;
writeln;
{сортировка массива}
for j:=1 to n do
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
{Удаление нулей}
k:=0;
while k<>n do
begin
k:=k+1;
if a[k]=0 then
begin
l:=l+1;
for i:=k to n-1 do
a[i]:=a[i+1];
end;
end;
{Вывод массива}
for i:=1 to n-l do
write (a[i],' ');
<span>end.</span>
<span>Пока не исчезло чувство голода, повторять:
Купить пирожок.
Съесть пирожок.</span>
<span>Конец цикла. </span>
<u>Pascal:</u>
program loop;
var a,s:real;
begin
While s < 100 do
begin
readln(a);
s:= s+a;
end;
end.
<u>-----------------------------</u>
<u>Python:</u>
s = 0
while s < 100:
s += float(input())
<u>-----------------------------</u>
<u>Блок-схема:</u>
<u>"Приложил скриншот" см. ниже:</u>
<span>данные записанные в одну строку таблицы -это-</span>основы
Очевидно выражение такое: y = cos(2x)+sin(x/4)
Получим линейный алгоритм:
var x,y:real;
begin
writeln('Введите Х');
readln(x);
y:=cos(2*x)+sin(x/4);
writeln(y);
end.