Вводится 10 чисел (положительные). нужно подсчитать количество чисел меньше 10. на языке паскаль

Question

Информатика

Егорыч

25 апреля, 04:36

Вводится 10 чисел (положительные). нужно подсчитать количество чисел меньше 10. на языке паскаль

+5

Ответы (1)

Знаете ответ на вопрос?

Досифей · Answer 1

Program chisla;

Var mas: array (1 ... 10) of real; (не указано, что должны быть только целые числа, поэтому real)

K, i: integer;

Begin

For i:=1 to 10 do

Write (mas[i]) ; / / ввод массива

Read (mas[i]) ;

K:=0;

For i:=1 to 10 do

If mas[i]<10

Then K:=K+1;

Writeln ('Количество чисел меньше 10', K) ;

End.