Дан массив.Подсчитать количество элементов равных 5
10-11 класс
|
program tref;
var a,i:integer; mas:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(50);
if (mas[i]=5)then a:=a+1;
writeln(mas[i]);
end;
writeln(a);
end.
Заполнение массива-рандомное,если хотите,можно изменить на ввод от руки
Другие вопросы из категории
(для обозначения инверсии используется знак # перед переменной, например, #h означает h с инверсией, для обозначения логического сложения и умножения используются знаки "+" и "*"
квадратную матрицу порядка N (N < 500). В колонию
проникает M (M < 11) вирусов, которые
поражают клетки с координатами (X1, Y1),
… (Xm, Ym). За одну единицу времени вирус
проникает в клетки, соседние с зараженными (соседними считаются клетки, имеющие
общую сторону).
Читайте также
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
экран в виде таблицы и количество элементов равных 1.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива