ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
№ 3. ОПРЕДЕЛЕНИЕ ЧИСЛА ЭЛЕМЕНТОВ МАССИВА ПО УСЛОВИЮ
ПОСТАНОВКА ЗАДАЧИ:
Заполнить массив и вывести его на экран. Ввести с клавиатуры условие.
Подсчитать количество элементов, удовлетворяющих условию.
Program KolUsl;
uses crt;
const m=1; { min индекс }
n=10; { max индекс }
var i, k, usl: integer;
a: array[m..n] of integer;
... { процедуры Input и Print взять из занятия 32 }
procedure Kol_po_Usl;
begin
write('Введите ограничение :');
readln(usl);
k:=0;
for i:=m to n do
if a[i]>usl then
k:=k+1
write('Кoличество элементов больших ',usl, ' равно ', k);
end;
Begin
ClrScr;
Input;
ClrScr;
Print;
writeln;
writeln;
Kol_po_Usl;
Readkey;
End.
З А Д А Н И Я:
1. Самостоятельно написать процедуры Input, Print и исполнить программу.
2. Изменить условие подсчета элементов.
3. Подсчитать сумму элементов по условию.