Вывести победителя на экран

@Ольга2317 · Регистрация: 16.06.2016

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

текстовый файл содержит данные о количестве очков,набранных каждой из 10 команд в формате <название> <очки>.Вывести победителя на экран.Помогите пожалуйста

@shilko2013 · 16.06.2016, 18:54

При условии, что победитель один)

Pascal

type Rec = record
           Name:string;
           Points:integer;
           end;
var a:array [1..10] of Rec;
f:text;
i,poin,max,max_num:integer;
nam:string;
c:char;
BEGIN
Assign (f,'Путь к файлу.txt');
Reset (f);
max:=-1;
For i:=1 to 10 do begin
nam:='';
Repeat
Read (f,c);
nam:=nam+c;
Until c=' ';
Readln (f,poin);
a[i].Name:=nam;
a[i].Points:=poin;
IF poin > max THEN begin
                   max:=poin;
                   max_num:=i;
                   end;
end;
Close (f);
Writeln ('Победитель: ',a[max_num].Name,a[max_num].Points);
END.

@Ольга2317 0 / 0 / 0 Регистрация: 16.06.2016 Сообщений: 1
		1
	Вывести победителя на экран 16.06.2016, 18:36. Показов 1178. Ответов 1 Метки нет (Все метки) текстовый файл содержит данные о количестве очков,набранных каждой из 10 команд в формате <название> <очки>.Вывести победителя на экран.Помогите пожалуйста 0

	16.06.2016, 18:54

Вывести победителя на экран

Решение