сделать в паскале ,вообще не знаю как такое делать
Ответ
0/5 (0 оценок)
0
pinguinbird 3 года назад
Светило науки - 510 ответов - 0 раз оказано помощи

Не понял, почему мой ответ удалили... Снова оставляю его здесь.

program prog;

var

a:array[1..20] of integer;

i,max:integer;

begin

   max:=0;

   for i:=1 to 20 do begin

       a[i]:=random(-64)+52;

       write(a[i], ' ');

   end;

   writeln();

   for i:=1 to 21 do begin

       if i mod 2 = 0 then a[i]:=a[i]*(-3);

       if a[i] < 10 then a[i]:=a[i]*(-1);

       if abs(a[i]) > 40 then a[i]:=a[i]-15;

   end;

   for i:=1 to 21 do begin

       if a[i] = max then a[i]:=sqr(i);

       write(a[i], ' ')

   end;

end.