N,i:integer;
begin
readln(n);
for i:=n downto 1 do
writeln(i);
end.
Ctrl + c - Копировать
Ctrl + v - Вставить
Ctrl + x - Вырезать
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
var k := n div 2;
if n.IsEven then
a := a[k:] + a[:k]
else
a := a[k + 1:] + Arr(a[k]) + a[:k];
a.Println
end.
А) D:\Школа\Ученики.
Б) D:\Школа\Ученики\Успеваемость.
В) D:\Школа\Ученики.
Г) D:\Школа\Ученики\Нарушения.
Ответ: 2.
Средста ввода информации.