Размещено 5 лет назад по предмету
Информатика
от MIM1112
Var a,b:array[1..100]of integer; i,max,min,n:integer; begin readln(n); max:=0; min:=32; for i:=1 to n do begin readln(a[i],b[i]); if a[i]>max then max:=a[i]; if b[i]< min then min:=b[i] end; if min>=max then writeln('YES') else writeln('NO'); end.
Написать блок схему с проверкой Нужно очень срочно