Кто-нибудь сможет перевести с паскаля на алгоритмический язык? 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. ​

jansayabektasova jansayabektasova    1   04.04.2019 19:55    0

Ответы
supermichail29 supermichail29  28.05.2020 16:27

алг Пример

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

все

кон

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика