я так понял нужно ЗАМЕНИТЬ нечетные элементы на их квадраты. в следующий рас пишите условие яснее.
Решение:
const n=3; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2<>0 then a[i]:=sqr(a[i]); for i:=1 to n do write(a[i]); end.
Answers & Comments
я так понял нужно ЗАМЕНИТЬ нечетные элементы на их квадраты. в следующий рас пишите условие яснее.
Решение:
const n=3;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n do
if a[i] mod 2<>0 then a[i]:=sqr(a[i]);
for i:=1 to n do write(a[i]);
end.