Question

Найти среднее арифметическое элементов целочисленного массива ,кол-во элементов 8

Answer 1

program sr;
var
a: array[1..8] of integer;
i, s: integer;
avg: real;
begin
s := 0;
for i := 1 to 8 do
begin
write('a[', i, '] = ');
readln(a[i]);
s := s + a[i];
end;
avg := s / 8;
writeln('среднее: ', avg);
end.

Answer 2

Спасиюо

Answer 3

спасибо*