Где в этой программе фрагмент ввода массива с клавиатуры? 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.
for i:=1900 to 1999 do
begin
write(' введите численности населения Москвы к концу ',i,'-го года ');
read(m[i]);
end;
здесь идет повторение по всем годам, и во время повторения программа запрашивает данные за определённый год
Read(m[i]) ; - фрагмент ввода массива с клавиатуры