Var
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
<span>end.</span>
Кадр анимации представляет Картинку изображения которая сменяется другим кадром ещё это очень маленькая часть в анимации
1) var
i,n:longint;
a:array [1..1000] of longint;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=sqr(2*i+1);
write(a[i],' ');
end;
end.
2) Условие мне не понятно
3)Ща будет
Ну вот, надо что то написать чтоб было 20 символов)))
<span>512000/8=64 000 байт/с 64000/1024=62, 5 Кбайт /с 1 мин=60 секунд 62,5*60=3750 Кбайт Ответ 3750 Кбайт</span><span />