Рассматривается множество целых чисел, принадлежащих числовому отрезку [2568; 7858],
которые удовлетворяют следующим условиям: делятся на 4 или на 5; Не делятся на 11, 20, 27. Найдите минимальное и максимальное из таких чисел.​

Задача №1

var a:array[1..3, 1..4] of integer; 
i,j,min:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do begin 
read(a[i,j]); 
if a[i,j]<0 then min:=a[i,j]; 
end; 
for i:=1 to 3 do 
for j:=1 to 4 do 
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; 
writeln('Минимальное отрицательное число ',min); 
end.

Задача №2
var a:array[1..2, 1..5] of integer; 
i,j:integer; 
begin 
for i:=1 to 2 do 
for j:=1 to 5 do read(a[i,j]); 
for i:=1 to 2 do begin 
for j:=1 to 5 do 
write(a[i,j],' '); 
writeln; 
end; 
end. 

Задача №3
var a:array[1..3, 1..4] of integer; 
i,j:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do read(a[i,j]); 
for i:=1 to 3 do 
for j:=1 to 4 do 
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); 
end. 

1)         1 Килобайт = 1024 Байтов

          1 Мегабайт = 1024 Килобайтов (1024 Б * 1024 Б)

=> 1572864 : 1024 = 1536 КБ (Килобайт)

(1536 ←(1572864 Б) : 1024  = 1,5 МБ ⇔ Окончательный ответ)

2)  1 Байт = 8 Битов

     => 20480 : 8 = 2560

20480 Бит = 2560 Байт

(2560 ←(20480 Бит): 1024 = 2,5 КБ ⇔ Окончательный ответ )

3) 4194304 Байт = 4096 Кб

(4096 Кб = 4 Мб ⇔ Окончательный ответ)

4)40960 Бит = 5120 Байт

(5120 Байт = 5 Кб ⇔ Окончательный ответ)

5) 3145728 Байт = 3072 Кб

(3072 Кб = 3 Мб ⇔ Окончательный ответ)

6) 155648 Бит = 19456 Байт

(19456 Байт = 19 Кб ⇔ Окончательный ответ)