Question

Создать массив записей, хранящий сведения о животных в зоопарке. запись должна содержать следующие поля: название животного, кличка, год рождения, масса, необходимое количество пищи на 1 кг веса, страна. найти: количество животных, прибывших из данной стрвны, рассчитать суточную норму пищи для каждого животного список животных, возраст которых больше 10 pascal

Answer 1

//PascalABC.NET 3.2 сборка 1318

uses
  system;

type
  animal=record
    ani:string;
    name:string;
    yearOfBrith:integer;
    weight:real;
    food:real;
    country:string;
end;

    Const
  n=10;
 Var
  zoo:array[1..n] of animal;
  i,counter:integer;
  coun:string;
begin
for i:=1 to n do
  begin
    writeln('Данные о животном #',i);
    readln(zoo[i].ani);
    readln(zoo[i].name);
    readln(zoo[i].yearOfBrith);
    readln(zoo[i].weight);
    readln(zoo[i].food);
    readln(zoo[i].country);
  end;
write('Введите страну:');
readln(coun);
for i:=1 to n do
if zoo[i].country=coun then inc(counter);
writeln(counter);
writeln('Таблица норм пищи:');
for i:=1 to n do
writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food);
writeln('Список животных, возраст которых больше 10 ');
for i:=1 to n do
if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name);
end.