Вывести
числа, большие среднего арифметического значений, записанных в файле,
имеющего структуру: сначала идет число в диапазоне от 1 до 1000 ,которое
определяет
количество последующих числовых значений в файле.
Пример входного файла:
3
5
10
15
Результат:
15
Решение:
const
N=1000;
Var
F: text;
a: array [1..N] of integer;
i: integer;
sum, kol: integer;
avg: real;
Begin
cls;
sum:=0;
Assign(F, 'input.txt');
Reset(F);
Read(F, kol);
for i:=1 to kol do
begin
Read(F, a[i]);
sum:=sum+a[i];
end;
avg:=sum / kol;
for i:=1 to kol do
begin
if a[i]>avg then
writeln(a[i]);
end;
Close(F);
End.
USES CRT;
Var
arr: array [1..99] of array [1..2] of integer;
str: string; // Строка, читаемая из файла
StrLen: integer; // Длинна строки, cчитанной из файла
SchoolStr: string; // № школы строкой
SchoolNum: integer; // № школы числом
code: integer; // Для преобразования из строки в число
RecordNum: integer; // Кол-во записей в файле
CurRec: integer; // Кол-во записей в массиве
F: text; // Файлвая переменная
i, j: integer; // Счетчики для циклов
IsFound: boolean; // Флаговая переменная
max: integer; // Максимальнео кол-во участников
SchoolQty: integer; // Кол-во школ с max участников
BEGIN
cls;
Assign(F,'file.txt');
Reset(F);
readln(F,RecordNum);
for i:=1 to RecordNum do
Begin
// Считать очередную строку из файла
readln(F, str);
StrLen:= Length(str);
// Вырезать номер школы из строки
SchoolStr:= TrimLeft(Copy(str,StrLen-1,StrLen));
Val(SchoolStr,SchoolNum,code);
// Проверить наличие школы в массиве
IsFound:=false;
for j:=1 to CurRec do
begin
// Если № школы есть,то увеличить количетсво на 1
if arr[j][1]=SchoolNum then
begin
Inc(arr[j][2]);
IsFound:=true;
break;
end;
end;
// Иначе добавить в массив строку с номером школы и кол=1
if not IsFound then
begin
Inc(CurRec);
arr[CurRec][1]:=SchoolNum;
arr[CurRec][2]:=1;
End;
End;
for i:=1 to CurRec do
writeln('# шк:', arr[i][1], ' кол-во=', arr[i][2]);
close(F);
max:=0;
// Найти максимум во втором столбце
for j:=1 to CurRec do
begin
if arr[j][2]>max then
max:=arr[j][2];
end;
SchoolQty:=0;
// Вывести школы,где max участников
for i:=1 to CurRec do
begin
if (arr[i][2]=max) then
Begin
writeln('№ школы:', arr[i][1]);
inc(SchoolQty);
End;
End;
writeln('Кол-во школ с максимальным количеством учатсников:', SchoolQty);
END.
