Заменить отрицательные элементы массива М(30) в ячейках, номера которых кратны 5, их квадратам. очень срочно, помогите.
Заменить отрицательные элементы массива М(30) в ячейках, номера которых кратны 5, их квадратам. очень срочно, помогите.
Гость
Ответ(ы) на вопрос:
Гость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
m[i]:=sqr(m[i]);
for i:=1 to n do write(m[i]:5);
end.
Не нашли ответ?
Похожие вопросы