Средняя температура

@Kre4o · Регистрация: 24.09.2018

Author24 — интернет-сервис помощи студентам

Утром в больничной палате самый сон. После бессонной ночи больные наконец-то засыпают. Но в семь часов приходит медицинская сестра, включает свет и сует всем градусники. Через десять минут она вынимает градусники и вводит значения температур больных с клавиатуры в память компьютера. Программа высчитывает среднюю по палате температуру. Число больных может быть любым. Напишите программу, которая выполняет вычисление средней по палате температуры больных.

@ZX Spectrum-128 · 28.09.2018, 19:19

Pascal

const
  n = 100;
 
var
  sr: real;
  k, i: integer;
  a: array[1..n] of integer;
 
begin
  sr := 0;
  k := 0;
  write('Введите количество больных: ');
  readln(k);
  for i := 1 to k do 
  begin
    write('Введите температуру ', i, '-го больного: ');
    readln(a[i]);
    sr := sr + a[i];
  end;
  sr := sr / k;
  write('Средняя температура: ', sr:0:2);
end.

@Kre4o · 05.10.2018, 13:40 **[ТС]**

Бро, а как сделать чтобы можно было ввести не целое число, а например 36.6 и т.д

@Puporev · 05.10.2018, 13:43

Не по теме:

Никак, потому что ты какое-то бро.

@Kre4o · 05.10.2018, 13:44 **[ТС]**

А как сделать что бы можно было ввести не целое числа, а например 36.6 и так далее?

@ZX Spectrum-128 · 05.10.2018, 14:21

замените

Pascal

1	a: array[1..n] of integer;

на

Pascal

1	a: array[1..n] of real;

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
		1
	Средняя температура 26.09.2018, 19:27. Показов 4800. Ответов 5 Метки нет (Все метки) Утром в больничной палате самый сон. После бессонной ночи больные наконец-то засыпают. Но в семь часов приходит медицинская сестра, включает свет и сует всем градусники. Через десять минут она вынимает градусники и вводит значения температур больных с клавиатуры в память компьютера. Программа высчитывает среднюю по палате температуру. Число больных может быть любым. Напишите программу, которая выполняет вычисление средней по палате температуры больных. 0

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
	05.10.2018, 13:40 [ТС]	3
	Бро, а как сделать чтобы можно было ввести не целое число, а например 36.6 и т.д 0

@Puporev
	05.10.2018, 13:43 #4
	Не по теме: Никак, потому что ты какое-то бро. 0

@Kre4o 0 / 0 / 0 Регистрация: 24.09.2018 Сообщений: 91
	05.10.2018, 13:44 [ТС]	5
	А как сделать что бы можно было ввести не целое числа, а например 36.6 и так далее? 0

	05.10.2018, 14:21