program z1; const n = 3; m =3; var a:array[1..n, 1..m] of integer; i,j,min:integer; begin //Заполним матрицу и найдем минимальное min:=20; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(41)-20; if a[i,j] < min then min:=a[i,j]; write(a[i,j]:4); end; writeln; end; writeln; // меняем минимальное на 0 и выводим матрицу for i:=1 to n do begin for j:=1 to m do begin if a[i,j] = min then a[i,j]:=0; write(a[i,j]:4); end; writeln; end; end.
Тестовое решение для 1 задачи: 18 20 -10 19 -14 -17 -4 -17 -15
18 20 -10 19 -14 0 -4 0 -15
Задание №2
program z2; const n = 3; m =5; var a:array[1..n, 1..m] of integer; i,j,min:integer; begin //Заполним матрицу for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(41)-20; write(a[i,j]:5); end; writeln; end; writeln; // меняем все элементы на их квадраты и выводим матрицу for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=sqr(a[i,j]); write(a[i,j]:5); end; writeln; end; end.
Тестовое решение для задания №2 15 8 18 -17 10 -19 17 1 20 -15 -20 -13 -11 -3 17
//PascalABC.NET //Версия 3.3, сборка 1634 begin write('массив: '); var a:=ArrRandom(15,-100,100).Println; write('кол-во элементов <10: ',a.Where(x->x<10).Count); end.
Для кодирования одного из 32 цветов требуется log(2)32 = 5 бит (2^5=32). Высота изображения = 9*1600/16 = 900 Объем памяти = 1600*900*5 бит = 1600*900*5 / (8*1024) Кбайт ≈ 879 Кбайт.