Последовательность в Паскале.

[Nero77]

Доброго времени суток. Я программист совсем ещё зелёный и прошу помочь написать в Паскале следующую программу:

Для введенной последовательности целых чисел признаком конца которой является ноль определить максимальное число, сумму всех чисел и среднее арифметическое. Использовать цикл repeat.

Заранее благодарен.

[Ghost of Night]

Загони все числа в массив, а дальше работай с ним (максимальное число, сумму всех чисел и среднее арифметическое).

[Serge_Bliznykov]

Загони все числа в массив,

зачем? Задача этого не требует!

SummaAll := 0;
Kolichestvo := 0;
repeat
  Readln(A);
  if A<>0 then begin
     inc(Kolichestvo);
     SummaAll := SummaAll + A;
  end;
until A = 0;

WriteLn('Сумма всех чисел: ',SummaAll);
if Kolichestvo>0 then
  WriteLn('Среднеарифметическое: ', (SummaAll / Kolichestvo):7:2 )
else
  WriteLn('Среднеарифметическое определить нельзя - количество чисел равно нулю! ')

[Ghost of Night]

определить максимальное число

Из этого примера нельзя определить максимальное число. Нужна ещё одна переменная

max := 0;
if A>max  then  max:=A;

И вывод этой переменной

WriteLn('Max chislo = ',max);

[Serge_Bliznykov]

определить максимальное число. Нужна ещё одна переменная

Ghost of Night, угу. согласен. я упустил.
Но, согласитесь, что принципиально алгоритм решения одна дополнительная переменная и одна проверка - не меняет...

[Ghost of Night]

Serge_Bliznykov вы правы..