Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);
<span>End.</span>
включить принтер, проверить наличие бумаги в нем, если ее нет или мало, то добавить.
открыть документ, проверить что все в нем правильно, отправить на печать
Var
n:integer;
begin
readln(n);
if n > 10 then writeln(n, ' > ', 10);
if n < 10 then writeln(n, ' < ', 10);
if n = 10 then writeln(n, ' = ', 10);
<span>end.</span>
Например: 643000. Чтобы найти сумму этих чисел нам надо сложить все числа указанные в числе. Получится: 6+4+3+0+0+0=13
X1 = int(input())
y1 = int(input())
x2 = int(input())
y2 = int(input())
if x1*x2>0 and y1*y2>0:
print("YES")
else:
print("NO")
Пример:
3
3
5
1
YES