задайте массив из 10 элемениов, нечётные по номерам элементы замените на квадраты значений этих элементов

Question

Информатика

Геновефа

4 февраля, 19:11

задайте массив из 10 элемениов, нечётные по номерам элементы замените на квадраты значений этих элементов

+3

Ответы (1)

Знаете ответ на вопрос?

Дея · Answer 1

Program nechetkii;

var i, n:integer;

a:array[1 ... 10]of integer;

begin

for i:=1 to 10 do begin

a[i]:=i;

if (a[i] mod 2=1) then a[i]:=a[i]*a[i];

writeln (a[i]) ;

end;

end.

vrode tak