Кто-нибудь сможет перевести с паскаля на алгоритмический язык? 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.
алг Пример
цел a, N, i, min, num
нач
min:=50
num:=0
ввод N
нц для i от 1 до N
Ввод a
если a<min то
min := a
все
если a < –15 то
num := 1
все
кц
если num > 0 то
вывод 'YES'
иначе
вывод 'NO'
все
кон