Задание:
Тема массив. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементовмассива.
Решение:
vari,a,N: integer; sr: real; begin write ('Vvedite N='); readln (N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N randomize; for i: =1 to N dobegina: =random (N); write (a,'); sr: =sr+a; //Значения массива складываютсяend; sr: =(sr / N); //Сумма значений массива делится на количество значенийwriteln ('srednee arifmeti4eskoe=',sr: 1:2); //Выводится среднее арифметическоеreadln; end.
Знаете другой ответ?