Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Для заданного одномерного массива а[1..10] найти среднее значение всех его элементов

Ответ оставил Гость

Var
s: real;
i: byte;
a: array [1..10] of integer;
begin
заполнение массива;
for i:=1 to 10 do s:=s+a[i];
s:=s/10;
end.