Результаты ОГЭ-7

Публикую подробные результаты седьмого теста ОГЭ (щелкаем для увеличения картинки). Настоятельно рекомендую вдумчиво с ними ознакомиться и разобрать задания в которых допущены ошибки. Для этого открываю тест.

Очень жаль, что снова не так много решивших и ПРИСЛАВШИХ мне файл с заданием 19. Не принимала файлы с непонятно откуда взявшимся ответом. Мне важно было видеть ваш способ решения!

Снова публикую вариант решения задачи номер 20.2. Почему только Влад попробовал ее решить? У некоторых же с программированием все получалось!

На­пи­ши­те про­грам­му для ре­ше­ния сле­ду­ю­щей задачи. Уче­ни­ки 4 клас­са вели днев­ни­ки на­блю­де­ния за по­го­дой и еже­днев­но за­пи­сы­ва­ли днев­ную температуру. Най­ди­те самую низ­кую тем­пе­ра­ту­ру за время наблюдения. Если тем­пе­ра­ту­ра опус­ка­лась ниже –15 градусов, вы­ве­ди­те YES, иначе вы­ве­ди­те NO. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство дней, в те­че­ние ко­то­рых про­во­ди­лось из­ме­ре­ние тем­пе­ра­ту­ры N (1 ≤ N ≤ 31), затем для каж­до­го дня вво­дит­ся температура.

Возможный текст программы:
С использованием массива
Program zadanie;
Var temp:array[1..31] of integer; k,i,n: integer;
Begin
k:=1000;
Write('Введите сколько дней записывалась температура: '); Readln(n);
For i:= 1 to y do Begin
Write('Запишите температуру  ', i, '  дня: '); Readln(temp[i]);
if temp[i] < k then
k:=temp[i];
end;
Writeln('Минимальная температура дня: ',k);
if k<-15 then writeln('YES')
else writeln('NO')
End.

Без использования массива
var a, N, i, min, num : integer;
begin
min:=50; num:=0;
Write('Введите сколько дней записывалась температура: '); readln(N);
for i:=1 to N do begin
readln(a);
if a < min then min := a;
if a < –15 then num := 1;
end;
writeln(min);
if num > 0 tnen writeln(’YES’)
else writeln(’NO’)
end.