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.
Разрабатывают разработчики.
исполняет исполнитель.
Всегда Ваш, Капитан Очевидность.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(3).OrderBy(t->t).Println(' ')
end.
<u>Пример</u>
4 22 -5
-5 4 22