составьте программу ,которая позволяет вводить с клавиатуры элементы массива a[1..10], а затем выводить на экран в первую строку первые пять элементов, а во- воторую -остальные пять
Answers & Comments
ЕлизабэтФК
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]);
Answers & Comments
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.