Сколько всего денег потратила тетя Маша, и в каком магазине она истратила больше всего и какую сумму

@Mihail_Prog · Регистрация: 07.02.2018

Author24 — интернет-сервис помощи студентам

2. Тетя Маша обошла n магазинов, оставляя в каждом какую-то сумму денег. Сколько всего денег потратила тетя Маша, и в каком магазине она истратила больше всего и какую сумму? Номера магазинов и сумма потраченная в них содержится в файле input.txt, результат записать в файл output.txt

@Puporev · 08.02.2018, 09:11

Pascal

type mag=record //тип запись с полями
         nom,stm:integer;//номер магазина и сумма потраченных в нем денег
         end;
var f:text;
    a:mag;
    s,nmx,mx:integer;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
s:=0;
mx:=0; //пока мкс. сумма=0
while not eof(f) do
 begin
  read(f,a.nom,a.stm);//читаем поля записи
  s:=s+a.stm; //считаем общую сумму
  if a.stm>mx then // если сумма больше предыдущего максимума,
   begin
    mx:=a.stm;//новый максимум
    nmx:=a.nom; //номер магазина
   end;
 end;
close(f);
assign(f,'output.txt');
rewrite(f);
writeln(f,'Всего потрачено денег=',s);
writeln(f,'Больше всего потрачено денег в магазине номер ',nmx,' сумма=',mx);
close(f);
write('Файл input.txt прочитан, результат записан в файл output.txt')
end.

@Mihail_Prog 0 / 0 / 0 Регистрация: 07.02.2018 Сообщений: 19
		1
	Сколько всего денег потратила тетя Маша, и в каком магазине она истратила больше всего и какую сумму 07.02.2018, 21:25. Показов 2805. Ответов 1 Метки нет (Все метки) 2. Тетя Маша обошла n магазинов, оставляя в каждом какую-то сумму денег. Сколько всего денег потратила тетя Маша, и в каком магазине она истратила больше всего и какую сумму? Номера магазинов и сумма потраченная в них содержится в файле input.txt, результат записать в файл output.txt 0

	08.02.2018, 09:11

Сколько всего денег потратила тетя Маша, и в каком магазине она истратила больше всего и какую сумму

Решение