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