http://i.ggddzz.ru/ege/2016/EGE-2016-Informatika-Tipovye-testovye-zadaniya-Leschiner/42.jpg
Условие задания 27, в.3
Пожалуйста, проверьте эффективность и правильность решения(ЯП Pascal; PascalABC.Net):
var f:text;
buf:string[15];
a:array[1..12] of real;
b:array[1..12] of integer;
slot,i,k:integer;
max:real;
begin
for i:= 1 to 12 do begin
a[i]:= 0;
b[i]:= 0;
end;
max:= -9999.0;
AssignFile(f,'meteo.dat');
Reset(f);
while EOF(f) = False do begin
readln(f,buf);
slot:= StrToInt(copy(buf,4,2));
delete(buf,1,6);
a[slot]:= a[slot] + StrToFloat(buf);
b[i]:= b[i] + 1;
end;
CloseFile(f);
for i:= 1 to 12 do begin
a[i]:= a[i] / b[i];
if max < a[i] then begin
max:= a[i];
k:= 1;
buf:=IntToStr(i);
end
else if max = a[i] then begin
k:=k + 1;
buf:= buf + ',' + IntToStr(i);
end;
end;
writeln(k);
writeln(buf);
writeln(max);
end.