Question

написать программу объявить массив из 10 целых чисел заполнение массива осуществить с клавиатуры печать массива в столбик. напишите программу пж!!!

Answer 1

Ответ:

var i:integer;

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

begin

for i:=1 to 10 do

begin

write('a[',i,'] = ');

readln(a[i])

end;

writeln('Массив');

for i:=1 to 10 do

writeln(a[i])

end.