Как можно описать на паскале массив, в котором будут хранится значения численности населения москвы к концу каждого года xx века ?

первое решение понятно, но это только общие мысли, в целом оно ошибочно по двум пунктам

1. в идёт речь о 20 веке, а это года 1901,. поэтому в объявлении массива нужно указать именно эти интервалы. или просто 1 - 100, понятно же, что это один век, а при отображении года следует отображать (1900+i). 

2. в не определено, с какой точностью это самое население считается, если с точностью до человека, то integer не хватит, поэтому этот вопрос нужно уточнить и в зависимости от точности (до тысяч, до десятков или сотен тысяч человек) выбрать соответствующий формат представления данных.

3. странно писать 100 одинаковых операторов присваивания(кстати в тексте ещё ошибка - присваивается одно и то же значение, ведь оператора ввода данных

такие вещи делаются в цикле по индексам. внутри цикла 2 оператора 

ввод()

присваивание

опять же в не сказано, откуда берутся данные, ведь они могут браться с клавиатуры, с внешнего устройства(диска) или с какого-нибудь другого устройства ввода, например, сканера. эти вводы реализуются похожими, но разными операторами.

 

вот мои замечания, хотя, если формально точно реализовывать предложенное , нужно всего лишь описать массив, в котором будут храниться некоторые данные. в этом случае действительны лишь замечания 1 и 2. 

 

и ещё. я не помню, что такое integer. integer 2-байтный точно не хватит, integer 4-байтный должно хватить.

успехов!

обычно

 

var nas: array[2000..2013] of integer; beginnas[2000]: =znachenie; nas[2013]: =znachenie; end.

Program formula; var   x: integer;   p,y: real; begin   write('vvedute x< > 0 -> ');   readln(x);   if x=0 then writeln('x=0 nedopustimo')   else begin       p: = abs(cos(x));       if p=0 then writeln('ln(0) v 4islitele')       else begin           y: =ln(p)/ln(1+sqr(x*x));           writeln('y=',y: 5: 2)       end   end end.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var age: =readinteger('введите возраст: ');   var gender: =readinteger('введите пол (1-м, 2-ж): ');   if gender=1 then       case age of       0..13: writeln('мальчик');       14..20: writeln('юноша');       21..70: writeln('мужчина');       else writeln('старец')       end   else       case age of       0..13: writeln('девочка');       14..20: writeln('девушка');       21..70: writeln('женщина');       else writeln('старушка')       end end.