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

Дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. Требуется подсчитать среднее арифметическое значение элементов массива. на экран вывести массив и среднее арифметическое

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

Var
a: array[1..12] of real;
s: real;
i: byte;
begin
for i:=1 to 12 do
begin
a[i]:=random(101);
write(a[i], );
s:=s+a[i];
end;
s:=s/12;
writeln();
write(Среднее арифметическое: , s);
end.