В Массиве записаны оценки по 12 предметам. Найдите каких оценок больше всего Срочно,пожалуйста)
хорошо
var st: string; i, len, count: integer; begin readln(st); len:=length(st); if len mod 5 = 0 then for i:=1 to len do if st in ['[', ']', '{', '}', '(', ')'] then inc(count); writeln(count); end.
Непонятно условие. Просто 12 оценок, по одной на предмет? Или по каждому предмету какое-то количество оценок?
Этого абсолютно не следует из условия. Поскольку тогда массив должен быть двумерным.
Я уже понял, что говорить не о чем.
в цикле сравнение и увеличение счетчика на 1