Последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2

@Markusss · Регистрация: 30.11.2017

Нужна помощь

последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2

@Ce7eH_111 · 12.12.2012, 17:27

Pascal

var i,a,k:integer;
begin
for i:=1 to 10 do begin
read(a);
if a<2 then inc(k);
end;
writeln('');
writeln(k);
end.

@Markusss 0 / 0 / 0 Регистрация: 30.11.2017 Сообщений: 1
		1
	Последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2 12.12.2012, 17:12. Показов 2685. Ответов 1 Метки нет (Все метки) Нужна помощь последовательно вводятся 10 чисел. Найти количество чисел, которые меньше числа 2 0

Опции темы

Решение