В паскале.В массиве из 10 целых чисел определить, сколько значений
10-11 класс
|
превышает число 3.
const n=10;
var a:array[1..n] of integer;
kol,i:integer;
begin
kol:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>3 then kol:=kol+1;
end;
writeln;
writeln('больших,чем 3=',kol);
end.
Другие вопросы из категории
Найдите объем полученного после обработки файла.
Выручайте. :)
1. возведи в квадрат,
2. прибавь 1.
Пер¬вая из них возводит число на экране в квадрат, вторая увеличивает его на 1. Запишите порядок команд в программе, которая преобразует число 1 в число 10 и содержит не более 4 команд. Указывайте лишь номера команд. (Например, программа 2122 — это программ А
прибавь 1,
возведи в квадрат,
прибавь 1,
прибавь 1.
Эта программа преобразует число 3 в число 18.)
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Подсчитайте количество нулевых элементов в массиве из 10 целых чисел и распечатайте исходный массив в обратном порядке.