С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль

Question

Информатика

Домна

2 июня, 00:39

С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль

+3

Ответы (1)

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

Олюся · Answer 1

Var a:array[1 ... 10] of integer;

i, k:integer;

s:real;

begin

k:=0;

writeln ('Введите числа') ;

for i:=1 to 10 do

begin

readln (a[i]) ;

k:=k+a[i];

end;

s:=k/10;

writeln ('Среднее арифметическое равняется ', s) ;

end.