program HelloWorld;
var a: array of integer;
var N, min, max, i, variable:integer;
begin
min := 32767;
max := 0;
readln(N);
for i := 0 to N do begin
readln(variable);
if (variable > 0) and (variable mod 2 = 0) and (variable > max) then
max := variable;
if (variable > 0) and (variable mod 2 = 0) and (variable < min) then
min := variable;
end;
if (max <> 0) and (min <> 32767) then
writeln(min, ' ', max)
else
writeln(-1);
end.
var n:=ReadInteger('n = ');
var m:=ReadInteger('m = ');
Writeln('Исходная матрица:');
var a:=MatrRandom(n,m,-20,20);
a.Println(4);
for var i:=0 to a.RowCount-1 do
for var j:=0 to a.ColCount-1 do
if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0;
Writeln('Измененная матрица:');
a.Println(4)
end.
Пример:
n = 4
m = 5
Исходная матрица:
7 -8 -7 -5 -7
2 4 -3 -2 -13
14 5 -12 9 20
12 11 18 -3 7
Измененная матрица:
1 0 0 0 0
1 1 0 0 0
1 1 0 1 1
1 1 1 0 1