Имеется числовой массив состоящий из 15 элементов. Вывести на экран среднее арифметическое всех элементов. Нужна программа на языке паскаль (PascalABC)
Имеется числовой массив состоящий из 15 элементов. Вывести на экран среднее арифметическое всех элементов. Нужна программа на языке паскаль (PascalABC)
Гость
Ответ(ы) на вопрос:
Гость1. Современный вариант
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(15,10,20); a.Println;
Print('среднее',a.Average)
end.
Тестовое решение:
20 13 16 18 20 19 11 17 16 16 13 12 10 17 10
среднее 15.2
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
a:array[1..15] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 15 do begin
a[i]:=Random(11)+10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Write('среднее ',s/15)
end.
Тестовое решение:
19 11 11 12 12 14 16 10 20 19 10 16 16 20 13
среднее 14.6
Не нашли ответ?
Похожие вопросы