Задание:
Дан массив из N целых элементов и целое число B. Написать программу, определяющую, сколько в массиве чисел, меньшихВ.
Решение:
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.
Знаете другой ответ?