Регистрация
AngelGelay
05.08.2021 05:38
Информатика
Есть ответ 👍

Впаскале. дано n чисел, введённых с клавиатуры. найти их среднее арифметическое

158
374
Посмотреть ответы 3

Ответы на вопрос:

olesyavod45
olesyavod45
4,4(24 оценок)
Var i: array[1..1000] of integer; sum,n,k : integer; begin readln(n); for k: =1 to n do begin read(i[k]); sum+=i[k]; end; writeln(sum/n); end.
Карик007
Карик007
4,5(89 оценок)

program z_1;

var a, s: real;

i, n, k: integer;  

begin

writeln('введите кол-во чисел последовательности: ');

readln(n);

k : = 0;

s: =0;

for i : = 1 to n do

begin

writeln('введите ', i, '-е число: ');

readln(a);

s : = s + a;

k : = k + 1;  

end;

writeln('среднее арифметическое чисел: ', s / k);  

end.

машаоляапро
машаоляапро
4,7(98 оценок)

получиловт на 50 балов

Объяснение:

вот так вот

Популярно: Информатика