помогите решить, в паскаль. Дан массив записей,

Question

помогите решить, в паскаль. Дан массив записей,

Марина Иванова Ученик (187), закрыт 5 лет назад

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

Answer 1

type info = record
name: string [30];
age1: integer;
age2: integer;
price: integer;
end;
var i, n, max : integer;
s1: string;
table: array [1..100] of info;
begin
randomize;
write (' Введите количество игрушек [1..100]:');
readln (n);
max:=0;
for i:=1 to n do
begin
str(i,s1);
if i<10 then table[i].name:='игрушка #0'+ s1
else table[i].name:='игрушка #'+ s1;
table[i].age1:=1+random(9);
table[i].age2:=table[i].age1+3;
table[i].price:=50+random (200);
if table[i].price > max then max:=table[i].price;
end;
writeln;
writeln ('Название':9,'Возраст':15,'Цена':7);
for i:=1 to n do
begin
write (table[i].name);
write (table[i].age1:8);
write ('-':2);
write (table[i].age2:2);
writeln (table[i].price:8);
end;
writeln;
writeln ('Стоимость самой дорогой игрушки = ',max);
writeln;
for i:=1 to n do
if table[i].price >= (max-50) then
begin
write (table[i].name);
write (table[i].age1:8);
write ('-':2);
write (table[i].age2:2);
writeln (table[i].price:8);
end;
end.