Тема массив. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
