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

дан массив 0из 6 элементов. найти среднее арифметического элементов этого массива. в паскале

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

const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(20);
s := s + a[i];
write(a[i], );
end;
writeln;
writeln(Среднее арифметическое эл. массива: , s / n);
end.