Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20
Var a: array [0..10] of integer;
i, p, o, n: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
if (a[i] > 0) then inc(p);
if (a[i] = 0) then inc(n);
if (a[i] < 0) then inc(o);
end;
writeln();
writeln(p, ' ', n, ' ', o);
<span>end.</span>
<span>Израсходовали
8 белой краски и Х – коричневой.
Iб= 2 бит</span>
<span>Pб=8/(8+8+Х) 1/p=2^</span>I<span>, (16+Х)/8=
2</span>²<span> 16+Х = 32, следовательно
Х = 16. Ответ было израсходовано 16 банок коричневой краски.</span>