Предмет: Информатика,
автор: Аноним
В Массиве записаны оценки по 12 предметам. Найдите каких оценок больше всего Срочно,пожалуйста)
nirvana191277:
хорошо
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.
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 оценок, по одной на предмет? Или по каждому предмету какое-то количество оценок?
Этого абсолютно не следует из условия. Поскольку тогда массив должен быть двумерным.
Я уже понял, что говорить не о чем.
Ответы
Автор ответа:
0
в цикле сравнение и увеличение счетчика на 1
Похожие вопросы
Предмет: Українська мова,
автор: kdvkramar
Предмет: Алгебра,
автор: petrovdmitric47
Предмет: Литература,
автор: katyadenisova68
Предмет: Математика,
автор: gaynullina98
Предмет: Математика,
автор: gaynullina98