Написать программу: нечетным элементам одномерного массива присвоить значения квадратов индексов.
Answers & Comments
Студэнt
//PascalABC.Net 3.2 begin var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: ')); for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1); a.Println; a.Println; end.
Answers & Comments
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.