Question

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

Answer 1

Var b:integer;
    a: array [0..5] of integer;
    
beginfor b:=0 to 5 do begin
  read(a[b])
end;
for b:=5 downto 2 do begin
  write(a[b],' ');
end;

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

writeln('');
for b:=0 to 5 do begin
  if (b=1) or (b=5) then write(a[b],' ');
end;
end