Question

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

Answer 1

Program z;
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.