Дан массив из N целых элементов и целое число B.Написать программу, определяющую, сколько в массиве чисел, меньших В.
5-9 класс
|
Program Task;
Const N = 10;
Var a: Array [1..N] of Integer;
i, B, count: Integer;
Begin
Write('B = ');
ReadLn(B);
WriteLn('Введите ', N, ' элементов через пробел');
For i := 1 To N Do
Begin
Read(a[i]);
If a[i] < B Then
count := count + 1;
End;
WriteLn('Количество элементов, меньших ', B, ' равно ', count);
ReadLn;
End.
Другие вопросы из категории
Начало книгопечатания в Европе.
Появление алфавитного письма в Финикии.
Появление первых лазерных дисков.
Первые следы иероглифического письма в Древнем Египте.
Начало книгопечатания в России.
Появление первых жестких дисков для компьютеров.
изобретение магнитофона.
Изобретение фотографии.
первая запись звука с помощью фонографа.
Демонстрация первого кинофильма.
14;
a := (b mod 10) + 2;
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
программу определяющую каких элементов в точке больше положительных или отрицательных
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
различны). Найти минимальный элемент численного массива и его порядковый номер.