Задача №1
var a:array[1..3, 1..4] of integer;
<span>i,j,min:integer; </span>
<span>begin </span>
<span>for i:=1 to 3 do </span>
<span>for j:=1 to 4 do begin </span>
<span>read(a[i,j]); </span>
<span>if a[i,j]<0 then min:=a[i,j]; </span>
<span>end; </span>
<span>for i:=1 to 3 do </span>
<span>for j:=1 to 4 do </span>
<span>if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; </span>
<span>writeln('Минимальное отрицательное число ',min); </span>
<span>end.
</span>
Задача №2
var a:array[1..2, 1..5] of integer;
<span>i,j:integer; </span>
<span>begin </span>
<span>for i:=1 to 2 do </span>
<span>for j:=1 to 5 do read(a[i,j]); </span>
<span>for i:=1 to 2 do begin </span>
<span>for j:=1 to 5 do </span>
<span>write(a[i,j],' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>end.
</span>
Задача №3
var a:array[1..3, 1..4] of integer;
<span>i,j:integer; </span>
<span>begin </span>
<span>for i:=1 to 3 do </span>
<span>for j:=1 to 4 do read(a[i,j]); </span>
<span>for i:=1 to 3 do </span>
<span>for j:=1 to 4 do </span>
<span>if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); </span>
<span>end. </span>
Чтобы уменьшить размер файла, можно его заархивировать
25 1 1 0 0 1
58 1 1 1 0 1 0
11010110 214
<span>11010000 208</span>
Разрешение составляет 1280 на 1024. Поясняю, если перемножить эти числа то получится ваше разрешение
1)Это четное число?
-Да (1)
2)Меньше 50?
-Да (2)
3) Меньше 25?
-Да(3)
4) Меньше 12?
Да(4)
5)Меньше 6?
да(5)
Меньше 3?
да(6)
Это единица
