Объясните что делает каждая строчка:
var a: array [1..100] of integer;
n, i, k,r: integer;
begin
readln;
k:=0;
for i := 1 to n do
read(a);
readln(r);
for i := 1 to n do
if a >= r then inc(k);
writeln(k+1);
end.
var a: array [1..100] of integer; - вводим массив из целых переменных от 1 до 100 n, i, k,r: integer; - вводим переменные (n, i, k,r) целого типа begin - начало тела readln; - считываем значение n с клавиатуры k:=0; - придаём значение k = 0 for i := 1 to n do - для переменной i равной изначально 1 до определенного числа n выполняем след. строчки read(a); - считываем число массива readln(r); считываем значение r с клавиатуры for i := 1 to n do для переменной i равной изначально 1 до определенного числа n выполняем след. строчки if a >= r then inc(k); если элемент массива больше или равен r, то к k прибавляем единицу writeln(k+1); выводим k+1 end. конец программы
Хрень, а не программа... 1. Нет запроса на ввод данных. И ты зрительно не определишь когда вводится массив, а когда уже переменная r. Считать будешь по ранее введенному n? 2. Нет никакой разницы между операторами read() и readln()