Заменить отрицательные элементы массива М(30) в ячейках, номера которых кратны 5, их...

Question

Заменить отрицательные элементы массива М(30) в ячейках, номера которых кратны 5, их квадратам. очень срочно, помогите.

Answer 1

Const n=30;
var m:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do m[i]:=random(20)-10;
for i:=1 to n do write(m[i]:5);
writeln;
for i:=1 to n do
if (m[i]<0) and (i mod 5=0) then<br>m[i]:=sqr(m[i]);
for i:=1 to n do write(m[i]:5);
end.