Программирование на алгоритмическом языке Turbo Pascal

[Дима82]

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

[puporev]

Если используется цикл, то операторы цикла обязательны, иначе как вы догадаетесь, что это цикл. Может в условии сказано, что не использовать цикл с параметрами, т.е for ... do;?

[Дима82]

Может в условии сказано, что не использовать цикл с параметрами, т.е for ... do;?

Да, именно это сказано.

[eoln]

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

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.

[puporev]

Всегда нужно очень внимательно читать условие и вникать в него. Иначе и сами не решите и помочь никто не сможет.
Вот пример решения с использованием операторов repeat ... until

uses crt;
var n,a,max,b:integer;
    sr:real;
begin
clrscr;
write('n=');readln(n);  //задаем n
b:=0;sr:=0;max:=-maxint; //задаем значения счетчика(b), среднего, max.
repeat                           //-maxint - это минимальное число типа integer
readln(a);                      //читаем а
sr:=sr+a;                       //прибавляем его
if a>max then max:=a;     //если оно больше max, то max=a
b:=b+1;                         //считаем шаги
until b=n;                        //если количество чисел =n, заканчиваем
sr:=sr/n;                        //считаем среднее
writeln('srednee=',sr:4:2,'  max=',max);//выводим все на экран
readln
end.

[Дима82]

Лабораторная работа называется "Программирование ветвящихся алгоритмов", т.е. я думаю не стоит брать repeat, until.

[puporev]

Лабораторная работа называется "Программирование ветвящихся алгоритмов",

Так какого лешего вы циклы-то приплели.

[Дима82]

Так какого лешего вы циклы-то приплели.

Так написано в задании...

[AlDelta]

Один вопрос - одна тема.
Закрыто.