Question

сделать в паскале ,вообще не знаю как такое делать

Answer 1

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

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.