Question

Составьте программу для ввода с клавиатуры в массив 20 целых чисел и вывода первых десяти чисел в обратном порядке в первую строку, во вторую строку – остальные десять чисел в обычном порядке.

Answer 1

program vdchvep;

uses

crt;

var

i: integer;

var

c: array [1..20] of integer;

begin

for i := 1 to 20 do

begin

write('c[', i, '] = ');

readln(c[i]);

end;

for i := 10 downto 1 do

write(c[i], ' ');

writeln;

for i := 11 to 20 do

write(c[i], ' ');

readln;

end.

Answer 2

PascalANC.NET 3.7:

• ###
• var a := RAI(20);
• a[9::-1].Prln;
• a[10:].Pr