подсчитать количество элементов равным 3 в массиве В6
10-11 класс
|
Программа на Паскале:
Program aaa;
Var i, k : integer;
b : array [1..6] of real;
Begin
for i :=1 to 6 do
readln (b[i];
k:=0;
for i:=1 to 6 do
if b[i' = 3 then k:=k+1;
writeln('кол-во элементов равных 3 =', k);
readln;
end.
Другие вопросы из категории
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.
пробежит спортсмен за 7 дней? Составить программу в паскале помощью цикла repeat.
на чашечных весах без гирь, чтобы найти фальшивую монету?
Читайте также
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.
экран в виде таблицы и количество элементов равных 1.
Вводится длина вектора и значения его элементов.
1. Подсчитать количество элементов, равных заданному значению.
2. Поменять местами максимальный и минимальный элементы вектора.
3. Подсчитать количество отрицательных, положительных и нулевых элементов вектора.