За даними, що містяться в електронній таблиці Популярність (завдання 11), створіть програму для визначення кількості виконавців, рейтинг популярності яких у поточному тижні став нижчим за попередній. Вхідні дані — значення рейтингової позиції поточного місяця та попереднього для кожного виконавця (назви виконавців вводити не потрібно). Вихідні дані — значення кількості виконавців, що відповідають зазначеній умові.
Решение: Program popularnost; var n,a,b,i,s:integer; BEGIN writeln('Введите количество исполнителей'); readln(n); s:=0; for i:=1 to n do begin writeln('Введите рейтинг текущей и прошедшей недель'); readln(a,b); if a<b then s:=s+1; end; writeln('Опозорились ',s,' исполнителей'); END.
