Кто-нибудь сможет перевести с Паскаля ** алгоритмический язык? var a, N, i, min, num :...

Question

Кто-нибудь сможет перевести с Паскаля на алгоритмический язык? var a, N, i, min, num : integer;beginmin:=50; num:=0;readln(N);for i:=1 to N do beginreadln(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. ​

Answer 1

алг Пример

цел  a, N, i, min, num

нач

min:=50

num:=0

ввод N

нц для i от 1 до N

Ввод a

если a

min := a

все

если a < –15 то

num := 1

все

кц

если num > 0 то

вывод 'YES'

иначе

вывод 'NO'

все

кон