Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и отрицательные числа возводит в квадрат, а из неотрицательных извлекает квадратный корень.
Program rp1; uses crt; var a: array [1..15] of integer; i: integer; begin clrscr; randomize;a[i]:=random (41)-20; writeln ('massiv '); for i:=1 to 15 do write (a[i], ' '); for i:=1 to 15 do if a[i]< 0 then a[i]:=sqr (a[i]) else a[i]:=sqrt (a[i]); writeln ('novij massiv '); for i:=1 to 15 do write (a[i], ' '); end.
uses crt;
var a: array [1..15] of integer; i: integer;
begin
clrscr;
randomize;a[i]:=random (41)-20;
writeln ('massiv ');
for i:=1 to 15 do
write (a[i], ' ');
for i:=1 to 15 do
if a[i]< 0 then a[i]:=sqr (a[i]) else a[i]:=sqrt (a[i]);
writeln ('novij massiv ');
for i:=1 to 15 do
write (a[i], ' ');
end.