Question

Составьте программу ввода с клавиатуры массива целых чисел k[1..6] и вывода на экран элементов этого массива в строку через пробел

Answer 1

var

 k: array[1..6] of integer;

 i: integer;

begin

 Writeln('ввод');

 for i := 1 to 6 do

   Read(k[i]);

 Writeln('вывод');

 for i := 1 to 6 do

   Write(k[i], ' ')

end.