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

Question

Информатика

Арсентий

10 мая, 07:25

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

+1

Ответы (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.