Регистрация
needhomework19
29.11.2021 06:52
Информатика
Есть ответ 👍

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.

Написать блок схему с проверкой
Нужно очень

128
351
Посмотреть ответы 1

Ответы на вопрос:

kitecat12
kitecat12
4,5(53 оценок)
Гражданин российской федерации

Популярно: Информатика