Напишите на паскале программу, которая запрашивает с клавиатуры массив из n чисел, а затем выводит сумму и среднее арифметическое всех элементов массива.

179

496

Посмотреть ответы 2

Ответы на вопрос:

gulzazak

Информатика

4,5(92 оценок)

Var i,a,n: integer; sr: real; begin write('vvedite n = '); readln(n); // вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до n randomize; for i: =1 to n do begin a: =random(n); write(a,' '); sr: =sr+a; //значения массива складываются end; sr : = (sr / n); //сумма значений массива делится на количество значений writeln('srednee arifmeti4eskoe = ',sr: 1: 2); //выводится среднее арифметическое readln; end.