Запросить

с клавиатуры в цикле 5 любых целых чисел,

найти их сумму и среднее арифметическое,

результаты вывести на экран

Question

Информатика

Мута

20 мая, 16:57

Запросить

с клавиатуры в цикле 5 любых целых чисел,

найти их сумму и среднее арифметическое,

результаты вывести на экран

+3

Ответы (1)

Знаете ответ на вопрос?

София · Answer 1

Program Summa;

Var n, i, sum: Integer;

sr: Real;

Begin

sum:=0;

sr:=0;

For i:=5 downto 1 do

Begin

WriteLn ('Vvedite chislo') ;

ReadLn (n) ;

sum:=sum+n;

End;

sr:=sum/5;

Writeln ('Summa ravna = ', sum) ;

Writeln ('Srednee znachenie = ', sr) ;

End.

Запроситьс клавиатуры в цикле 5 любых целых чисел,найти их сумму и среднее арифметическое,результаты вывести на экран

Запросить

с клавиатуры в цикле 5 любых целых чисел,

найти их сумму и среднее арифметическое,

результаты вывести на экран