Заменить элементы массива с нечетными индексами на квдрат их индекса.
Полный текст программы,пожалуйста!
const n=5;var a: array [1..n] of real; i: integer;begin for i:=1 to n do begin readln(a[i]); if i mod 2=1 then a[i]:=sqr(i); writeln(i,' элемент массива равен : ',a[i]); end;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
if i mod 2=1 then a[i]:=sqr(i);
writeln(i,' элемент массива равен : ',a[i]);
end;
end.