Заменить все элементы с четными номерами на из квадраты
Заменить все элементы с четными номерами на из квадраты
Ответ(ы) на вопрос:
var a: array [0..9] of integer;
i: integer;
begin
for i := 0 to 9 do
a[i] := random(50) + 1;
for i := 0 to 9 do
if (a[i] mod 2 = 0) then a[i] := sqr(a[i]);
end.
Не нашли ответ?
Похожие вопросы