Question

На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: наименование лекарственного

Answer 1

type
   lek = record
     naim: string;
     kol,cen,srok: integer;
   end;
var
   a: array[1..100] of lek;
   i,n,k,z,max,min: integer;
begin
   write('введите количество наименований: ');
   readln(n);
   for i:=1 to n do
      begin
         write('название: ');
         readln(a[i].naim);
         write('количество: ');
         readln(a[i].kol);
         write('цена: ');
         readln(a[i].cen);
         write('срок годности: ');
         readln(a[i].srok);
      end;
   max:=a[1].cen;
   min:=a[1].cen;
   k:=0;
   z:=0;
   write('препараты, со сроком годности 3+ месяцев: ');
   for i:=1 to n do
      begin
         if a[i].cen>max then max:=a[i].cen;
         if a[i].cen<min then min:=a[i].cen;
         if a[i].srok>3 then write(a[i].naim,' ');
         k:=k+a[i].kol;
         z:=z+a[i].cen*a[i].kol;
      end;
   writeln;
   writeln('цена самого дорогого товара: ',max);
   writeln('цена самого дешевого товара: ',min);
   writeln('количество препаратов: ',k);
   writeln('стоимость всех хранящихся на складе препаратов: ',z);
   readln;
end.