Вычислить сумму и среднее арифметическое последовательности положительных чисел

@DMTRB · Регистрация: 17.12.2014

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

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел. Числа вводятся с клавиатуры.

@ZX Spectrum-128 · 18.12.2014, 10:01

Pascal

uses
  CRT;
 
var
  i, n, k, kol: integer;
  sum: real;
 
begin
  ClrScr;
  write('Введите кол-во чисел: ');
  readln(n);
  sum := 0;
  kol := 0;
  for i := 1 to n do
  begin
    write('Введите ', i, '-e число:=');
    readln(k);
    if k > 0 then
    begin
      sum := sum + k;
      kol := kol + 1;
    end;
  end;
  if kol <> 0 then
  begin
    writeln('Сумма: ', sum);
    writeln('Среднее: ', sum / kol);
  end
  else
    writeln('Нет положительных чисел.');
  readln;
end.

@DMTRB 0 / 0 / 2 Регистрация: 17.12.2014 Сообщений: 75
		1
	Вычислить сумму и среднее арифметическое последовательности положительных чисел 17.12.2014, 17:14. Показов 3387. Ответов 1 Метки нет (Все метки) Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел. Числа вводятся с клавиатуры. 0

	18.12.2014, 10:01

Опции темы

Вычислить сумму и среднее арифметическое последовательности положительных чисел

Решение