Модуль, функция, файл, 3 задачи , пожалуйста помогите решить! Опции

[денис]

1. Написать подпрограмму-функцию, решающую следующую задачу: пусть дано нату-ральное n и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное. Найдите наибольшее среди отрицательных чисел этой после-довательности.
2. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы . Определите имеется ли среди элементов данной последовательности пара соседних одинаковых символов; 2) в массиве из n элементов подсчитайте количество четверок идущих подряд членов, из которых все члены различны.
3. Пусть дан файл целых чисел. Определите, сколько раз в этом фай \ле повторяется максимальное значение.

[APAL]

Чуть подправлю... оптимизирую.... если можно....

Код

var
f:file of integer;
i,summ:longint;
max,k:integer;
fn:string;

begin
repeat
readln(fn); {file name}
assign(f,fn);
{$I-} reset(f)  {$I+}
until IOResult=0;
{?饬 ¬ Єб. зЁб«®}
max:=-30000;
summ:=0;
For i:=0 to (filesize(f)-1) do
begin
seek(f,i);
read(f,k);
If k=max then Inc(summ);
If k>max then
Begin
  max:=k;
  summ:=0;
End;
end;
Close(f);
Writeln('Њ ЄбЁ¬ «м­®Ґ зЁб«® ў д ©«Ґ ',fn,' ўбваҐз Ґвбп ',summ,' а §.');
end.

Сообщение отредактировано: APAL - 31.05.2004 13:38