На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: Наим. лекарства Кол-во Цена Срок хранения(в месяцах). Выяснить, сколько стоит самый дорогой и самый дешёвый препарат, сколько препаратов хранится на складе, какие препараты имеют срок хранения более 3 месяцев, сколько стоят все препараты — Pascal(Паскаль)

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type Tapt=record
nam:string[20];
kol:word;
cen:word;
src:byte;
end;
var sp:array[1..100]of Tapt;
n,i,imin,imax:byte;
min,max,kp:word;
ost:longint;
begin
write('Kolichestvo naimenovanij lekarstv n=');
readln(n);
for i:=1 to n do
begin
writeln('Lekarstvo ',i);
write('Naimenovanie: ');readln(sp[i].nam);
write('Kolichestvo: ');readln(sp[i].kol);
write('Cena: ');readln(sp[i].cen);
write('Srok hranenia: ');readln(sp[i].src);
end;
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]writeln;
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]{max, min}
max:=sp[1].cen;min:=sp[1].cen;imax:=1;imin:=1;
for i:=1 to n do
if sp[i].cen>max then
begin
max:=sp[i].cen;
imax:=i;
end
else if sp[i].cen<min then
begin
min:=sp[i].cen;
imin:=i;
end;
writeln('Samyj dorogoj preparat ',sp[imax].nam);
writeln('Samyj deshevyj preparat ',sp[imin].nam);
writeln;
{obsh. kol.}
kp:=0;
for i:=1 to n do
kp:=kp+sp[i].kol;
writeln('Na sclade hranitsa ',kp,' preparatov');
writeln;
{srok hranenia}
writeln('Imeyut srok hranenia > 3 mesyacev:');
for i:=1 to n do
if sp[i].src>3 then
writeln(sp[i].nam);
writeln;
{obsh. stoim.}
ost:=0;
for i:=1 to n do
ost:=ost+sp[i].kol*sp[i].cen;
writeln('Vse preparaty stoyat ',ost,' rub.');
readln
end.

Похожие записи/страницы:

Leave a Comment

− 1 = 7