Массив из записей содержит сведения о компьютерах, находящихся ** балансе в организации....

Question

Массив из записей содержит сведения о компьютерах, находящихся на балансе в организации. Запись содержит следующие сведения:тип ЭВМ, ГОД год приобретения, цена. Выдать на печать все ЭВМ, приобретенные после 1997 года, стоимостью больше C руб. Найти суммарную стоимость ЭВМ, приобретенные в N-м году. Решить задачу в PASCAL ABC

---

Answer 1

//PascalABC.NET v3.3 1633

type

 Computer = record

   cType: string;

   yearOfPurchase: integer;

   price: integer;

end;

const m = 10;

var computers: array [1..m] of Computer;

types: array of string:=('суперкомпьютер', 'мэйнфрейм', 'сервер', 'ПК');

begin

 for var i:=1 to m do

   with computers[i] do

   begin

     cType:=types[random(0,3)];

     yearOfPurchase:=random(1992, 2003);

     price:=random(15000,120000);

   end;

 

 writeln('Тип ЭВМ / Год покупки / Цена');

 for var i:=1 to m do

   with computers[i] do

   begin

     writeln(cType+' '+yearOfPurchase+' '+price);

   end;

 writeln();

 

 var C:=ReadInteger('Введите C: ');

 

 var sum:=0;

 var N:=ReadInteger('Введите N: ');

 writeln('На печать:');

 for var i:=1 to m do

   with computers[i] do

   begin

     if yearOfPurchase = n then sum += price;

     if (yearOfPurchase > 1997) and (price > C) then

       writeln('  '+cType+' '+yearOfPurchase+' '+price);

   end;

  writeln('Суммарная стоимость ЭВМ,приобретенных в '+n+' году: '+sum);

end.