Дроид плюхнул коричневую жижу на горку варёных овощей. Только судмедэкспертиза смогла бы подтвердить, что в подливе действительно был нерфий фарш, но всё равно это далеко ушло от безвкусных пищевых кубиков, которыми их кормили в детстве, а тем более – от сухих пайков.
Мысли в столовой Карен Тревисс, "Приказ 66"
Сколько глобус ни крути, там 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.
Моя версия тоже работает, но предложенный в ответах вариант, как оказался, был намного проще.