Дан массив из N целых элементов и целое число…

Question

Дан массив из N целых элементов и целое число B. Написать программу, определяющую, сколько в массиве чисел, меньшихВ.

Answer 1

41

kimon

14 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: