В растровой графике изображения представлены маленькими точками, которые называются «пикселями». Пиксель характеризуется цветом. В цветных изображениях каждому пикселю соответствует свой двоичный код, длина которого зависит от количества цветов, используемых в изображении. В черно-белом изображении используются только два цвета, поэтому в таком изображении каждому пикселю соответствует либо 0, либо 1 в зависимости от цвета. Белому цвету соответствует 0, черному – 1. Например, изображению
начало решения задач одинаковое, а дальше см. внизу
program xxx;
var b: array [1..6, 1..6] of integer;
i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end;
задание 1.
s:=0;
for i:= 1 to 6 do
if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.
задание 2.
i:=2;
while i<=6 do begin
for j:= 1 to 6 do
if b[i,j]<0 then b[i,j]:=0;
i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end
end.
m=10;
n=6;
var
a:array[1..m,1..n] of integer;
i,j,maxr:integer;
p,maxp:longint;
begin
Randomize;
Writeln('Исходный массив');
maxp:=0;
for i:=1 to m do
begin
p:=1;
for j:=1 to n do
begin
a[i,j]:=Random(99)+1; { интервал [1..99] }
Write(a[i,j]:3);
p:=p*a[i,j]
end;
if maxp<p then begin maxp:=p; maxr:=i end;
Writeln
end;
for i:=1 to m do
for j:=1 to n do a[i,j]:=a[maxr,j];
Writeln('Сформированный массив');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Исходный массив
86 61 76 1 86 64
93 87 34 66 35 13
51 39 57 5 71 49
86 47 26 30 93 80
58 24 59 57 3 79
46 81 17 24 11 37
12 83 56 75 89 16
50 93 57 1 51 64
25 35 69 29 46 73
68 56 68 95 42 62
Сформированный массив
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80
86 47 26 30 93 80