Связь с администрацией сайта:       

demo

Среди толпы я одинок

Pascal Названия наиболее дорогих игрушек

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

 

 

 

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.
Rate this item
(0 votes)
Login to post comments