В столовой предлагаются N комплексных обедов, состоящих из Q блюд. Известна стоимость и калорийность каждого блюда. Сколько
172
493
Ответы на вопрос:
uses crt;
type blyudo=record
stm:real;
kal:integer;
end;
var n,q,i,j:integer;
a:array[1..6,1..6] of blyudo;
kl,mxk:integer;
st,mxs,mns:real;
begin
repeat
write('Количество обедов от 1 до 6 n=');
read(n);
until n in [1..6];
repeat
write('Количество блюд в обедах от 3 до 5 q=');
read(q);
until q in [3..6];
writeln('Введите данные');
for i:=1 to n do
begin
writeln('Обед ',i);
for j:=1 to q do
begin
writeln(' - блюдо ',j);
write(' - стоимость=');read(a[i,j].stm);
write(' - калорийность=');read(a[i,j].kal);
end;
end;
mxs:=0;
mns:=1000000;
mxk:=0;
for i:=1 to n do
begin
st:=0;
for j:=1 to q do
begin
st:=st+a[i,j].stm;
if a[i,j].kal>mxk then mxk:=a[i,j].kal;
end;
if st>mxs then mxs:=st;
if st<mns then mns:=st;
end;
writeln('Самый дешевый обед стоит ',mns:0:2);
writeln('Самый дорогой обед стоит ',mxs:0:2);
writeln('Самое калорийное блюдо включает ',mxk,' кал.');
end.
type blyudo=record
stm:real;
kal:integer;
end;
var n,q,i,j:integer;
a:array[1..6,1..6] of blyudo;
kl,mxk:integer;
st,mxs,mns:real;
begin
repeat
write('Количество обедов от 1 до 6 n=');
read(n);
until n in [1..6];
repeat
write('Количество блюд в обедах от 3 до 5 q=');
read(q);
until q in [3..6];
writeln('Введите данные');
for i:=1 to n do
begin
writeln('Обед ',i);
for j:=1 to q do
begin
writeln(' - блюдо ',j);
write(' - стоимость=');read(a[i,j].stm);
write(' - калорийность=');read(a[i,j].kal);
end;
end;
mxs:=0;
mns:=1000000;
mxk:=0;
for i:=1 to n do
begin
st:=0;
for j:=1 to q do
begin
st:=st+a[i,j].stm;
if a[i,j].kal>mxk then mxk:=a[i,j].kal;
end;
if st>mxs then mxs:=st;
if st<mns then mns:=st;
end;
writeln('Самый дешевый обед стоит ',mns:0:2);
writeln('Самый дорогой обед стоит ',mxs:0:2);
writeln('Самое калорийное блюдо включает ',mxk,' кал.');
end.
Популярно: Другие предметы
-
Fernier05.06.2022 15:34
-
Юока06.08.2021 15:11
-
game10855109.10.2020 13:06
-
ДашаЕ118.11.2021 23:50
-
verymam10.08.2022 04:46
-
ЖаннаЛьюес23.08.2022 21:27
-
ekaterinaefimenko1606.11.2022 04:10
-
лямда123428.09.2020 11:32
-
1greg28.04.2021 13:40
-
tayteldiyev200502.07.2020 09:33