Question

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

Answer 1

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.