Уровень a. на вход программы данные о результатах районной олимпиады. в первой строке – количество участников n, а следующие n строк имеют следующий формат: здесь – строка, состоящая не более чем из 20 символов; – строка, состоя-щая не более чем из 15 символов; – целое число, обозначающее общее количество , набранное участником. все данные разделены пробелами. пример входной строки: петечкин вася 152 чтобы на городскую олимпиаду проходят участники, набравшие в сумме более 100 . требуется вывести количество участников, прошедших на городскую олимпиаду.

262

332

Посмотреть ответы 2

Ответы на вопрос:

diarryfokks

Информатика

4,8(34 оценок)

//pascal abc.net v3.1 сборка 1172 type re=record sub: string; name: string; co: integer; end; var n,i,k: integer; ar: array of re; begin readln(n); setlength(ar,n+1); for i: =1 to n do begin writeln('введите фамилию участника №',i); readln(ar[i].sub); writeln('введите имя участника №',i); readln(ar[i].name); writeln('введите участника №',i); readln(ar[i].co); if ar[i].co> 100 then inc(k); end; writeln('количество прошедших=',k); end. пример ввода: 4 введите фамилию участника №1 двачевская введите имя участника №1 алиса введите участника №1 99 введите фамилию участника №2 персунов введите имя участника №2 семён введите участника №2 101 введите фамилию участника №3 коллайдер введите имя участника №3 виола введите участника №3 999 введите фамилию участника №4 сиина введите имя участника №4 микадо введите участника №4 100 пример вывода: количество прошедших=2