Заменить все элементы с четными номерами на из квадраты

Заменить все элементы с четными номерами на из квадраты
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы