Здравствуйте. Проблема с паскалем..

[Ksenia2019]

Мне нужна прога,которая определяет среднюю температуру пациентов по палате. Число пациентов не ограничено.
я думаю так, но в тот же момент поонимаю что это детский сад...и код большой...

Program task1;
var
a,b,c,d,e,f,n,k:real;
begin
read(n); // число пациентов
if n=1 then 
begin
   read (a); 
  k:=a;
  write(k);
  end;
if n=2 then
begin
  read (a,b);
  k:=(a+b)/n;
  write(k);
  end;
if n=3 then
begin
  read (a,b,c);
  k:=(a+b+c)/n;
  write(k);
  end;
if n=4 then
begin
  read (a,b,c,d);
  k:=(a+b+c+d)/n;
  write(k);
  end;
  if n=4 then
  begin
  read (a,b,c,d,e);
  k:=(a+b+c+d+e)/n;
  write (k);
  end;
    if n=5 then
    begin
  read (a,b,c,d,e,f);
  k:=(a+b+c+d+e+f)/n;
  write (k);
  end;
  end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Вадим Мошев]

Вы проходили циклы и массивы? Уверен, что от вас требуется, чтобы задача решалась именно через них. Представьте, что у вас пациентов тысяча. Как вы выглядел код вашей программы в таком случае?

Подсказка: ван нужен массив и цикл, чтобы его обрабатывать.

[p51x]

Ну массив необязателен, можно сразу накапливать. Температуры всех ему же не выводить...

[Cuprum5]

Ну да, действительно, где автоматизация-то? Не надо вручную считать каждый раз среднее арифметическое - здесь должна быть автоматизация. Надо просто создать динамический массив или статический массив размером = максимальному числу пациентов в палате и потом создать еще функцию Среднее арифметическое() - только по-английски. Допустим, заполнили массив, потом передали его в функцию по указателю или завести глобальный массив, если указатели - слишком сложно. Вотрым параметром в функцию будет n. Функция посчитает сумму n-элементов, поделит на n и вернет результат.

[Аватар]

массив то зачем?

s:=0; for i:=1 to N do begin read(x); s:=s+x; end; среднее:=s/n;