Программирование ветвящихся алгоритмов

[Дима82]

Лабораторня работа: "Программирование ветвящихся алгоритмов"
Задача:С клавиатуры вводится последовательность из N вещественных чисел. Вычислить среднее арифметическое введённых чисел, а также определить максимальное из них. Ввод чисел и их обработку организовать в цикле, но операторы цикла при этом не использовать.

Можно ли сделать её через "метку", условного оператора if,оператора выбора case..., не ипользуя операторов цикла!

[yourself]

Берешь массив из N чисел, переменную, по которой будешь определять индексы. Организуешь ввод в элемент массива - увеличиваешь переменную - если она не больше N, то безусловным переходом возвращаешься к строке, где написан ввод с клавиатуры.

[eoln]

Дима, а это что по твоему
http://programmersforum.ru/showthrea...t=18843&page=3?
P.S. массив оттуда только убрать надо, чтобы под тему лабы попадало

[Дима82]

В принципе можно без операторов цикла. "Зациклить" меткой )))

Код:
view plaincopy to clipboardprint?

var
i, x, v: integer;
sred, max: real;
mas: array[1..50] of real;
label start;
begin
i := 0;
start:
inc(i);
write('input = '); readln(mas[i]);
sred := sred + mas[i];
if i = 1 then max := mas[1] else if mas[i] > max then max := mas[i];
write('dalee? 1-da 0-net '); readln(v);
if v = 1 then goto start;
writeln('Sred = ', sred/i :4:2);
writeln('Max = ', max :4:2);
readln
end.

Что такое "label start" и просто "start" ?

[AlDelta]

goto + F1