1) дан массив Р(N), состоящий из N вещественных чисел. Заменить отрицательные элементы массива их квадратами,и новый массив переписать в S(N).
ПОМОГИТЕЕЕ СРОЧНОО:*

спасибки:*

Program task;var i,n:longint;r:real;a:array [0..10000] of real;beginwriteln('skolko elementov v massive?');readln(n);r:=0;for i:=1 to n do begina[i]:= random(100);end;for i:=1 to n do beginr+=a[i];end;r:=r/n;writeln(r:0:0);readln;end.

а можно тебя как то в вк найти?:)