Question

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

Answer 1

Var b:integer;
    a: array [0..6] of integer;
    begin
randomize;
for b:=0 to 6 do begin
  read(a[b]);
end;

for b:=6 downto 5 do begin
  write(a[b],' ');
end;
writeln('');

for b:=0 to 4 do begin
  write(a[b],' ');
end;
writeln('');

end.