Много ! написать программу которая находит среднее - вопрос №9715456 от Аолвлвьвтадвлвл 28.01.2022 06:34

Question

Информатика: Много ! написать программу которая находит среднее арифметическое элементов массива, состоящая из 100 элементов вещественного типа данных, вводимых вручную

Аолвлвьвтадвлвл · Answer

Const N = 100;

var

mas : array [1..N] of real;

sum : real := 0;

counter : integer := 0;

begin

for var i := 1 to N do begin

readln(mas[i]);

sum += mas[i];

counter += 1;

end;

writeln(sum/counter);

end.