Впаскале: 1)заполнить массив случайными числами от -100 до +100 и распечатать на экране только отрицательные числа 2)дан массив из 20 элементов числа от -50 до +50 а)каждый элемент больше 10 заменить на его квадратный корень б)все элементы с четными номерами заменить на их абсолютную величину(модуль) в)ко всем отрицательным элементам прибавить 5 , а к остальным первый элемент массива

Var     i: integer;     a: array[1..20]of integer; begin for i: =1 to 20 do   begin   a[i]: =random(-100,100);   if a[i]< 0 then write(a[i],' ');   end; end.2)а) var    i: integer;     a: array[1..20]of real; beginwriteln('исходный массив: '); for i: =1 to 20 do  begin  a[i]: =random(-50,50);   write(a[i],' ');   end; writeln; for i: =1 to 20 do  if a[i]> 10 then a[i]: =sqrt(a[i]); writeln('измененный массив: '); for i: =1 to 20 do write(a[i]: 7: 2); end.б)  var    i: integer;     a: array[1..20]of integer; beginwriteln('исходный массив: '); for i: =1 to 20 do  begin  a[i]: =random(-50,50);   write(a[i]: 4);   end; writeln; for i: =1 to 20 do  if (i mod 2=0) then a[i]: =abs(a[i]); writeln('измененный массив: '); for i: =1 to 20 do write(a[i]: 4); end.в)  var    i,n: integer;     a: array[1..20]of integer; beginwriteln('исходный массив: '); for i: =1 to 20 do  begin  a[i]: =random(-50,50);   write(a[i]: 4);   end; writeln; n: =a[1]; for i: =1 to 20 do  if a[i]< 0 then a[i]: =a[i]+5    else a[i]: =a[i]+n; writeln('измененный массив: '); for i: =1 to 20 do write(a[i]: 4); end.

если ^  точка, то 2.30 кбайтах =  0.00000219 гб