Вы приобрели котёнка. Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив, в котором будут храниться

+ 0 -

Arlekino152

15 мая 2013 г., 22:50:05 (10 лет назад)

const n=31;
var a:array[1..n] of integer; // Массив до 31
i:integer;
begin
a[1]:=1; // Обьявляем значения
a[2]:=3; // Обьявляем значения

// итд до 31
for i:=1 to n do writeln(i,' day:=',a[i]); // Вывод массива
end.

+ 0 -

Collapse56701

16 мая 2013 г., 1:04:02 (10 лет назад)

Вообще-то описание массива содержится в строке

var mas:array[1..n] of integer;

А вся программа ввода иммет вид:

Program Cat;
const n=31;
var mas:array[1..n] of integer;
i:integer;
begin
  for i:=1 to n do
  begin
    write('Введите вес котенка ',i,' -го мая');
    readln(mas[i]);
  end;
end.