Форум » Обработка числовых последовательностей » c4 задача 5 » Ответить

c4 задача 5

Алексей28: подойдёт такое решение задачи? const LIM = 250; var Info: array[1..LIM] of record name: string; ball: integer; i, k, N, mark, maxball: integer; c: char; begin readln(N); for i:= 1 to N do begin Info.name:=’ ‘; for k:= 1 to 2 do repeat read(c); info.name:=info.name + c; until c = ‘ ‘; info.ball:=0; for k:= 1 to 3 do begin read(mark); info.ball:=info.ball + mark; end; readln; end; maxball:=info[1].ball; for i:= 2 to N do if info.ball>maxball then maxball:=info.ball; for i=:1 to N do if info.ball = maxball then writeln(info.name); end.

Ответов - 2

oval: Алексей28 пишет: подойдёт такое решение задачи? А чем оно отличается от предложенного в ответах? Если между скобочкой [ и i ставить пробел [ i], то эта комбинация не воспринимается как перейти к курсивному шрифту Info[ i].name:=’ ‘;

Алексей28: извините, недоглядел первого решения



полная версия страницы