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

@programm123 · Регистрация: 21.12.2015

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

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

@Cyborg Drone · 29.12.2015, 09:07

Pascal

var i, n: integer;
    x, min, max, average: double;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  write('1: ');
  readln(x);
  min := x;
  max := x;
  average := x / n;
  for i := 2 to n do
    begin
      write(i, ': ');
      readln(x);
      if x < min
        then min := x
        else if x > max
          then max := x;
      average := average + x / n
    end;
  writeln('min = ', min);
  writeln('max = ', max);
  write('average = ', average);
  readln
end.

@programm123 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 20
		1
	Для N вводимых пользователем чисел найти максимальное, минимальное и среднее арифметическое значение 24.12.2015, 18:03. Показов 1944. Ответов 1 Метки нет (Все метки) Для N вводимых пользователем чисел найти максимальное, минимальное и среднее арифметическое значение. 0

	29.12.2015, 09:07

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

Решение