Question

Написать программу заполнения массива 7 целыми числами с клавиатуры и вывод их на экран через пробел.​

Answer 1

===== Free Pascal, Pascal ABC =====

var

 i: integer;

 a: array[1..7] of integer;

begin

 write('Введи 7 чисел: ');

 for i := 1 to 7 do

   read(a[i]);

 for i := 1 to 7 do

   write(a[i], ' ');  

end.