⇢ 
Юля
Дмитрий
i:=1;
while (i< n) do begin
a[ i]:=sqr(s[ i]);
inc(i,2);
end;
a - массив
n - размер массива
ОБ
Олька Брыкова
var i,n:integer; d:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n);
writeln('Введите элементы массива, разделяя их пробелами');
for i:=1 to n do read(d[ i]); readln;
for i:=1 to n do if odd(i) then d[ i]=i*i;
for i:=1 to n do write(d[ i]:8); writeln; readln
end.
Похожие вопросы