Напишите,плиз программу,паскаль,тема массивы. Дан массив от 1 до 10 значений вводимых с...

Question

Напишите,плиз программу,паскаль,тема массивы.
Дан массив от 1 до 10 значений вводимых с клавиатуры,посчитать количество элементов,которые меньше величины t

Answer 1

Program n1;
const n=10;
var a: array[1..n] of integer;
t,k,i: integer;
begin
k:=0;
readln(t);
for i:=1 to n do
begin
readln(a[i]);
if a[i]end;
write(k);
end.