PASCAL
Создать запись «Покупатель» с полями: «Имя» (строка), «Пол» (символ), «Цена товара»
(вещественное число), «Количество товаров» (целое число). Имена покупателей могут
повторяться, т.е. один покупатель может покупать разные товары в разном количестве.
Вывести информацию о покупателе-женщине, купившей больше всего товаров.
Создать запись «Покупатель» с полями: «Имя» (строка), «Пол» (символ), «Цена товара»
(вещественное число), «Количество товаров» (целое число). Имена покупателей могут
повторяться, т.е. один покупатель может покупать разные товары в разном количестве.
Вывести информацию о покупателе-женщине, купившей больше всего товаров.
More Questions From This User See All
Answers & Comments
type pokup=record
nam:string[50];
pol:char;
cen:real;
kol:integer;
end;
var a:array[1..10] of pokup;
n,i:integer;
s:real;
begin
clrscr;
repeat
write('Количество покупателей от 1 до 10 n=');
readln(n);
until n in [1..10];
writeln('Введите данные о покупателях');
s:=0;
for i:=1 to n do
begin
writeln('Покупатель ',i);
with a[i] do
begin
write('Имя: ');readln(nam);
repeat
write('Пол (m,z): ');readln(pol);
until pol in ['m','z'];
write('Цена товара: ');readln(cen);
write('Количество товаров: ');readln(kol);
if pol='z' then s:=s+kol*cen;
end;
end;
writeln('Общая сума покупок, сделанных женщинами=',s:0:2);
readln
end.