даны Н целых чисел найти среднее арифметическое чисел/пожалуйста!!!
5-9 класс
|
var
M: array [1..100] of integer;
s,i,n: integer;
begin
write('Введите кол-во чисел (n): ');
readln(n);
writeln('Введите ',n,' чисел:');
for i:= 1 to n do
begin
readln(M[i]);
s:=s+M[i];
end;
writeln('Среднее арифметическое: ',s/n);
end.
Другие вопросы из категории
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!