Составьте программу ,которая позволяет вводить с клавиатуры элементы массива a[1..10], а...

Question

Составьте программу ,которая позволяет вводить с клавиатуры элементы массива a[1..10], а затем выводить на экран в первую строку первые пять элементов, а во- воторую -остальные пять.
Пример ввода:
1 2 3 4 5 6 7 8 9 10
Пример вывода:
1 2 3 4 5
6 7 8 9 10

Answer 1

Var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
writeln(a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5],' ');
writeln(a[6],' ',a[7],' ',a[8],' ',a[9],' ',a[10],' ');
end.