Найти среднее арифметическое элементов массива кратных 5.
5-9 класс
|
Паскаль.
var a:array[1..1000] of integer;
k,s:integer; sr:real;
begin
write('Введите количество элементов массива n='); readln(n);
for i:=1 to n do read(a[i]);
writeln;
k:=0; s:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
s:=s+a[i]; k:=k+1; end;
sr:=s/k;
writeln('Среднее арифметическое элементов массива кратных 5 = ',sr);
end.
Другие вопросы из категории
согласная ,если первая буква гласная и любая гласная ,если первая буква согласная. На третьем месте - одна из бусин C,D,E,не стоящая в цепочке на первом или втором месте. Сколько цепочек можно создать по этому правилу?
Заранее спасибо.
клавиатуры, b≥a)
сколько байт памяти необходимо,чтобы закодировать графическое изображение на экране компьютера монитора,которое содержит 800 точек по горизонтали и 1000 точек по вертикали при 256 цветах
1. вычти 2
2. умножь на 3
первая из них уменьшает число на экране на 2 , вторая - утраивает его .Запишите порядок команд в программе получения из 11 числа 13 ,содержащей не более 5 команд ,указывая лишь номера команд.
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера,соответствующего элемента.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы