Есть ответ 👍

Соотнеси изоброжения датчиков и их функции​

154
405
Посмотреть ответы 1

Ответы на вопрос:


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.

Популярно: Информатика