Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. Пример: Массив: 1 2 3 4 5 Среднее арифметическое 3.000 Язык програмирования паскаль

16 Апр 2020 в 19:40
389 +1
0
Ответы
1

program Average;

var
arr: array1..51..51..5 of Integer;
i, sum: Integer;
average: Real;

begin
Randomize;

sum := 0;

for i := 1 to 5 do
begin
arriii := Random101101101;
sum := sum + arriii;
Write(arr[i], ' ');
end;

average := sum / 5;

Writeln;
Writeln′Среднееарифметическое:′,average:0:3'Среднее арифметическое: ', average:0:3Среднееарифметическое:,average:0:3;
end.

18 Апр 2024 в 13:52
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир