// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadLines('input.txt').Select(s->s.ToWords). Select(w->(w[0]+' '+w[1], (w[2].ToInteger+w[3].ToInteger+w[4].ToInteger)/3)).ToArray; var max:=s.Max(fb->fb[1]); s.Where(fb->fb[1]=max).Select(fb->fb[0]).Println(NewLine) end.
2. Школьное решение в стиле "TurboPascal 1983г"
const n=50; // максимум лучших учеников var f:Text; i,p,pa,b,sum,max:integer; sb:real; s,fio:string; flag:boolean; a:array[1..n] of string; begin Assign(f,'input.txt'); Reset(f); max:=0; pa:=1; while not Eof(f) do begin Readln(f,s); fio:=''; flag:=true; for i:=1 to Length(s) do if s[i]<>' ' then fio:=fio+s[i] else if flag then begin fio:=fio+' '; flag:=false end else break; p:=Length(fio)+2; sum:=0; for i:=1 to 3 do begin b:=Ord(s[p])-Ord('0'); sum:=sum+b; p:=p+2 end; if sum>max then begin a[1]:=fio; pa:=2; max:=sum end else if sum=max then begin a[pa]:=fio; pa:=pa+1 end; end; Close(f); for i:=1 to pa-1 do Writeln(a[i]); end.
3. Пример выполнения
Исходные данные (файл во вложении) Иванов И.И. 4 5 4 Сидорова С.С. 5 3 4 Петров П.П. 5 5 4 Козлов К.К. 3 3 5 Васечкин В.В. 4 4 4 Сорокина С.С. 5 5 4 Тарасова Т.Т. 5 4 5
Результат Петров П.П. Сорокина С.С. Тарасова Т.Т.
Предвижу возражение, что современное решение "непонятно". А что, школьное понятнее? Текст в 42 строчки понятнее чем в 5 строк? (я выкинул из обоих текстов по одному begin и end, окаймляющие программу). Что дольше писать и отлаживать? Где больше ошибок можно сделать? В конце-концов, что проще изучить с нуля - программирование в 5 строк или в 42? Вот и вопрос - для чего в школах массово изучают такое несуразное программирование?
const max=30;
var c:array[1..max,1..max] of integer;
m,n,i,j,p,k,s:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходная матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=-10+random(21);
write(c[i,j]:4);
end;
writeln;
end;
write('P=');
readln(p);
k:=0;
for i:=1 to m do
begin
s:=0;
for j:=1 to n do
if c[i,j]>0 then s:=s+c[i,j];
if s>p then k:=k+1;
end;
write('Количество строк по условию=',k)
end.