Ответы на вопрос:
Var a: array[1..10] of integer; i,k,l: integer; begin for i: =1 to 10 do begin write(i,'-й элемент: '); readln(a[i]); end; write('введите сравнительное число: '); readln(l); writeln(''); k: =0; for i: =1 to 10 do if a[i]< l then k: =k+1; writeln(k,' чисел меньше ',l); end.
Популярно: Информатика
-
НиколайКот18.03.2020 00:19
-
mazaliaopera28.04.2021 13:59
-
nikiraspru05.12.2020 03:48
-
Ferdgi02.06.2020 21:46
-
Qw135tgv24520.02.2023 08:43
-
mihaill198804.08.2021 08:32
-
тисрлю18.08.2020 20:40
-
метал316.09.2021 20:38
-
fietisov03.05.2020 14:49
-
хагагпррр14.06.2023 05:18