Вопрос Объясните значение строчек в программе

[SkAiRoS]

Объясните что делает каждая строчка:
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.

 

[LLLax]

ну тут наши полномочия всё

 

[sasha]

задает переменной a массив значений от 1 до 100

 

[Ерзи]

а почему тебе кто-то должен объяснять, если это ты учишься и ты хочешь быть программистом и зарабатывать на этом деньги!

 

[baraba]

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. конец программы

 

[Serega73]

Хрень, а не программа... 1. Нет запроса на ввод данных. И ты зрительно не определишь когда вводится массив, а когда уже переменная r. Считать будешь по ранее введенному n? 2. Нет никакой разницы между операторами read() и readln()

 

[Pubger2]

а почему тебе кто-то должен объяснять, если это ты учишься и ты хочешь быть программистом и зарабатывать на этом деньги!

Кинуть тебя на корабль (типа балкера) и сказать веди его в порт! Сможешь? Без учения!

 

[muzzle]

Сверху уже ответили что к чему. Студент?