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

Question

Информатика

Каллимах

25 мая, 18:46

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

+4

Ответы (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.