Помогите, пожалуйста, с решением задачи

[Knight_Maggot]

В текстовом файле, заполненном цифрами, определить: 1) среднее арифметическое; 2) количество чисел, по модулю превышающих среднее арифметическое.

[Лубышев]

в паскале?
1. Нужно создать переменную типа текстовый файл
Например:
var a:text;
2.чтобы связать переменную с файлом воспользуйся Assign
Например:
assign(a,'C:\\TextFile.txt');
3. Создать цыкл по считыванию данный из файла
4. Так как считываемые данные скорее всего будут взяты как
string(строковые данные) тебе нужно будет их конвертировать в real или в integer (как удобнее)
Например:
У нас b равен '10' - это не число а текст
тогда с:=StrToInt(b) -это уже число а не текст
4. а дальше все просто. сравнивай данные и все.

Тебе нужен будет цыкл с условием. (если что)

[Stilet]

C:\\TextFile.txt

Второй слеш не нужен

Так как считываемые данные скорее всего будут взяты как
string(строковые данные)

Не факт. Вот яркий пример :

uses crt;
var f:text;e,i:integer;
begin
assign(f,'qwewqrewtr');rewrite(f);
clrscr;
writeln(f,'123');
writeln(f,'12');
close(f);reset(f);
read(f,i,e);write(i,e);
end.

Хоть мы и строки пишем туда, но читается оно числом

[Лубышев]

Возможно ты прав. давно в Паскале ни чего не делал.