Одномерные массивы

[tower38]

я напечатал в паскале вот этот код

var i,n,x,kol:integer;
begin
writeln('Введите количество учащихся в группе');
readln(n);
writeln('Введите оценку');
for i:=1 to n do
readln(x);
if x>3 then kol:=kol+1;
writeln('Количество учащихся, не имеющих оценку "2"или"3" =' ,kol);
end.
выполнил пишет ввел кол. учащихся ввел оценку и все нажимаю enter ничего не происходит что надо подправить или дописать и куда?
пожалуйста напишите если не трудно ну не получается понять у меня)

[Alex11223]

Кол-во оценок, которые надо ввести = n, которое ввели в начале.
Чтобы было более понятно можно в цикле где вводятся оценки добавить

   write('Введите ', i, ' оценку: ');
   readln(x);

Там, кстати, begin/end пропущен и поэтому в цикле будет только readln(x), а if x>3 ... уже за ним т.е. только для последней оценки. см. пост #3.

[tower38]

вот так
var i,n,x,kol:integer;
begin
writeln('Введите количество учащихся в группе');
readln(n);
writeln('Введите оценку');
kol:=0;
for i:=1 to n do
begin
readln(x);
if x>3 then kol:=kol+1;
end;
writeln('Количество учащихся, не имеющих оценку "2"или"3" =' ,kol);
end.

так программа тоже пишет ввести оценку и учащихся потом черный экран

[Alex11223]

Она просто ждет пока кто-нибудь наконец введет оставшиеся n-1 оценки.

Добавь write('Введите ', i, ' оценку: '); перед вводом х, как указано выше

[tower38]

я не очень понимаю паскаль ты можешь просто написать как будет выглядеть программа от начала до конца если не трудно

[Alex11223]

Не, так не интересно. "потом черный экран" не из-за того, что программа зависла, а из-за того, что ждет ввода следующей оценки (readln(x), а он будет выполняться ровно n раз, т.е. число оценок (учащихся), которое вводится в самом начале). Можно добавить в цикле перед вводом оценки сообщение о том, какая оценка (её номер) сейчас вводится.