Question

где в этой программе фрагмент ввода массива с клавиатуры?
program zz1;
var i:integer;
m:array[1900..1999] of integer; // описываем массив целого типа, каждый элемент которого будет являться каждым годом XX века
begin
for i:=1900 to 1999 do
begin
write(' введите численности населения Москвы к концу ',i,'-го года ');
read(m[i]);
end;
end.

Answer 1

for i:=1900 to 1999 do

begin

write(' введите численности населения Москвы к концу ',i,'-го года ');

read(m[i]);

end;

здесь идет повторение по всем годам, и во время повторения программа запрашивает данные за определённый год

Answer 2

Read(m[i]) ; - фрагмент ввода массива с клавиатуры