```
var a:array[1..100,1..100]of integer;
N, M, i, j, mini, minj, maxi, maxj :integer;
begin
write('N, M -> ');
readln(N, M); {считываем размер матрицы}
write('Input matrix -> ');
for i:=1 to N do for j:=1 to M do
begin
write('A[',i,',',j,'] -> ');
readln(a[i, j]);
end; {считываем саму матрицу}
readln;
mini:=1;
minj:=1;
maxi:=2;
maxj:=2;
for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then
begin
maxi := i;
maxj := j;
end else if a[i, j] < a[mini, minj] then
begin
mini := i;
minj := j;
end;
writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);
writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);
readln;
end. ```
var
a : array [1..100] of real;
n, i : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n do
if a[i] <= 0 then
begin
writeln ('NO');
readln;
Halt;
end;
writeln ('YES');
readln;
end.
var
a : array [1..100] of real;
n, i : integer;
o : real;
begin
read (n);
for i := 1 to n do read (a[i]);
o := a[1];
for i := 2 to n do
if a[i] <> o then
begin
writeln ('NO');
readln;
Halt;
end;
writeln ('YES');
readln;
end.
var
a : array [1..100] of real;
n, i : integer;
x : real;
begin
read (n);
for i := 1 to n do read (a[i]);
read (x);
for i := 1 to n do
if a[i] = x then
begin
writeln ('YES');
readln;
Halt;
end;
writeln ('NO');
readln;
end.