в одномерном массиве найти количество элементов ,значение которых больше 6, но меньше 10
10-11 класс
|
program xxx;
const n=30;
uses crt;
var
a:array [1..20] of integer;
i,c:integer;
begin
clrscr;
c:=0;
randomize();
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i], ' ');
if (a[i]>6) and (a[i]<10) then c:=c+1;
end;
writeln();
writeln('Kolichestvo chisel: ',c);
readln();
end.
Другие вопросы из категории
Например: если я ввожу 2 должно выйти март
В классе учится 20 учеников: 8 мальчиков и 18 девочек. В какой системе счисления записаны эти сведения? Запишите количество мальчиков и девочек в десятичной системе счисления.
Читайте также
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!
2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
5. Найти минимальный элемент матрицы (5х5), заданной случайными значениями от 1 до 5 включительно, лежащие ниже главной диагонали.
D(N) определить количество элементов, значение которых больше 100.