Question

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

begin

min:=50; num:=0;

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.

​

Answer 1

алг Пример

цел  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'

все

кон