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

Question

Информатика

Октябрина

18 июня, 11:39

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

+5

Ответы (1)

Знаете ответ?

Тихон · Answer 1

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.