На зачётной работе по ученикам 9 класса было предложено 12 . зачёт можно получить, если правильно решить не менее 8 . сколько учеников получило зачёт? вычислите среднее количество правильно решённых учащимися, получившими зачёт. гарантируется, что хотя бы один ученик сдал зачёт. программа получает на вход количество учеников в классе n (1 ≤ n ≤ 30), затем для каждого ученика вводится количество правильно решённых .

Решение:

var i,n,b,c:integer;
begin
read(n);
for i:=1 to n do 
begin 
read(b); 
if b>=8 then c:=c+1; 
end;
writeln('Количесво учеников, сдавших экзамен: ',c)
end.

1 на Windows необходимо внизу возле часов нажать на кнопку RU или ENG в зависимости от выбранного языка
или же можно зайти в панель управления, язык и там выбрать, а можно и пол умолчанию
на Linux (Ubuntu), просто клик вверху панели на значок RU или ENG и меняешь.
или же нажимаешь на знак шестеренки, потом параметры системы, ввод текста, и меняешь
2. Windows внизу на панели, возле времени если кликаешь, то будет тебе часы (по желании можно виджет часов добавить)
также и на Linux, вверху панели на часы нажав

Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.