Написать программу. Ввести одномерный массив из целых чисел. Подсчитать во сколько раз сумма четных чисел массива превосходит среднее арифметическое всех
10-11 класс
|
чисел массива?
var a:array[1..1000] of integer;
n,i,s,sum:integer;
arif:real;
begin
write('Vvedite N = ');
read(n);
for i:=1 to n do begin
write('Vvedite a[',i,']=');
read(a[i]);
end;
sum:=0;
for i:=1 to n do begin
if (a[i] mod 2 = 0) then sum:=sum+a[i];
arif:=arif+a[i];
end;
arif:=arif/n;
writeln('Otvet = ',sum/arif);
end.
Другие вопросы из категории
___________ и ______________ , а шифруют с целью ___________ смысл сообщения. Данные для справки: срыть, шифрование, хранения, передача.
за ответ даю 150 балов
Читайте также
произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
и устанавливается первым в массиве, затем из оставшихся находится минимальный элемент и устанавливается вторым в массиве, после чего отыскивается из оставшихся элементов максимальный и устанавливается третьим в массиве и т.д. Размерность массива задается с клавиатуры.
Помогите, пожалуйста, не получается.
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
1 написать программу которая вводит с клавиатуры одномерный массив из 10 целых двузначных чисел выводит количество элементов > 28 и их среднее арифметическое
2 написать программу которая выводит с клавиатуры одномерный массив из 6 целых чисел и выводит нечётные
3 написать программу ввода с клавиатуры последовательность целых чисел вычисляющую кол-во и сумму положительно ввёдных чисел