Question

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

______________

пожалуйста,напишите программу попроще.

Answer 1

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.

Answer 2

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

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.