составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечётных чисел.
10-11 класс
|
только чтобы правильно было...помогите плииз!!!!
var
a: array [1..40] of integer; //Инициализируем массив из 40 целых чисел
i, s, n: integer; //s - сумма нечетных чисел, n - счетчик нечетных элементов
begin
s:= 0;
n:= 0;
write('Исходный массив: ');
for i:= 1 to 40 do
begin
a[i]:= random(20); //Формируем элемент массива
write(a[i], ' '); //Распечатываем
if a[i] mod 2 = 1 then {если элемент нечетный, то прибавляем его значение к сумме и увеличиваем счетчик нечетных элементов на 1}
begin
s:= s + a[i];
n:= n + 1;
end;
end;
writeln;
write('Среднее арифметическое: ', s / n : 0 : 5); {Делим сумму нечетных элементов на их количество и выводим с точностью до 5 знаков после запятой}
end.
Другие вопросы из категории
Исполнитель....
Бумага....
Звукавая информацыя....
Читайте также
среднее арифметическое нечётных чисел.
1)Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
2)Составьте программу заполнения массива из десяти чисел следующими значениями
а) 2 4 6 8 10 (+ 2)
б)3 6 9 12 15 (+3)
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.