1)как можно описать на паскале 1)как можно описать на паскале массив, в котором будет храниться значения численности населения москвы к концу каждого года xx века? 2)вы приобрели котёнка. каждый вечер вы определяете его вес с весов. как можно описать на паскале массив, в котором будет храниться значения веса котёнка в течение месяца (например, мая)?

Njtype       matrix= array [1..1, 1..10] of integer; var       a, : matrix;       i, j: integer; { индексы массива } begin       for i : =1 to 5 do {цикл для перебора всех строк}             for j : =1 to 10 do {перебор всех элементов строки по столбцам}                   readln ( a [ i , j ]); {ввод с клавиатуры элемента, стоящего в i -й строке и j -м столбце} по итогу. i = это год. j = это численность населения. по второму примеру. i = это день,  j = это вес кота

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

 

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.