– Придёт день, и вы столкнетесь с ситуацией, к которой окажетесь полностью неподготовлены как физически, так и эмоциально. Тогда вы и узнаете, какие из вас врачи, насколько вы подвержены страху и как хорошо вы выучились.
Лекция одного преподавателя на Риннале Джо Шрайбер, "Звёздные Войны: Солдаты Смерти"
Сколько глобус ни крути, там Fess-Style не найти...
Сайт Fess'a » ЕГЭ Задача С2 Найти минимальный балл - Форум
const N=5; var a: array [1..N] of integer; i, j, min: integer; begin j:=1; for i:=1 to N do begin readln(a[i]); if(a [i]> 19) then begin a[j]:=a[i]; j:=j+1; end; end;
i:=j-1; writeln('--------');
min:=101;
for j:=1 to i do begin writeln(a[j]); if (min > a[j]) then min:=a[j]; end;
Мой комментарий: если бы не жесткие рамки по количеству переменных, я бы ввёл больше переменных. В некоторых местах пришлось присваивать отслужившим своё переменным новые значения (чтобы не вводить новых), это для меня необычно. Для удобства кол-во учеников уменьшено с 30 до 5 (переменная N)
Мой ответ:
Код
program sred_min_ball;
const N=5; var a: array [1..N] of integer; i, j, min: integer; begin min:=100;
for i:=1 to N do begin readln(a[i]); if (a[i]>=20) and (a[i]<min) then min:=a[i]; end;
writeln('Min: ', min);
end.
Моя версия тоже работает, но предложенный в ответах вариант, как оказался, был намного проще.