Вычислить среднее арифметическое

@sentuzZz · Регистрация: 01.03.2020

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

Вычислить среднее арифметическое последовательности чисел вводимых с клавиатуры кратных 3. Если таких нет, то вывести сообщение об этом. Количество чисел должно задаваться во время работы программы.

@Puporev · 04.07.2020, 09:48

Pascal

var a,n,i,k:integer;
    s:real;
begin
write('Количество чисел n=');
readln(n);
writeln('Введите ',n,' целых чисел в том числе кратных 3');
s:=0;
k:=0;
for i:=1 to n do
 begin
  readln(a);
  if a mod 3=0 then
   begin
    inc(k);
    s:=s+a;
   end;
 end;
if k=0 then write('Нет чисел кратных 3')
else write('Среднее арифметическое чисел кратных 3=',s/k:0:2)
end.

@sentuzZz 0 / 0 / 0 Регистрация: 01.03.2020 Сообщений: 15
		1
	Вычислить среднее арифметическое 04.07.2020, 09:28. Показов 420. Ответов 1 Метки нет (Все метки) Вычислить среднее арифметическое последовательности чисел вводимых с клавиатуры кратных 3. Если таких нет, то вывести сообщение об этом. Количество чисел должно задаваться во время работы программы. 0

	04.07.2020, 09:48