Program qwer;
uses crt;
var a : array[1..1000,1..1000] of integer;
i,j,x,y,min,max : integer;
begin
read(x,y);
min := 100;
max := 0;
for i := 1 to x do
for j:= 1 to y do
begin
a[i,j] := random(101);
if a[i,j] < min then min := a[i,j];
if a[i,j] > max then max := a[i,j];
end;
writeln(min);
write(max);
<span>end.</span>
Информационные потоки преобразуют и обрабатывают информацию
01000001.10000000.11111111.00001100
Все четыре числа переводим в двоичную систему и каждое переведенное число записываем в восьмиразрядном виде
Например 65(10)
65 делим на 2 (берем только целую часть без округления) Получаем 32 Затем 32 делим на 2 и т.д.
65 32 16 8 4 2 1
1 0 0 0 0 0 1 если четное, пишем 0
65 = 1000001 = 01000001
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
<u>Примеры</u>
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True