Одна ячейка - трехзначная, всего их две -> величина может принимать три во второй (3^2) степени значений, то есть - девять.
1 - <span>вражда не делает добра
2 школа - </span> <span>ынсог</span>
Uses crt;
var m:array[1..4,1..5] of integer;
b:array[1..4] of integer;
min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
<span>end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,' ' );
writeln;
end;
min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.
</span>
Var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then write('YES')
else write('NO')
end.
Содержимое массива будет таким (по шагам):
0) 6 4 5 -1 2 0 4 -4 -2 1
1) 6 3 5 -1 2 0 4 -4 -2 1
2) 6 3 1 -1 2 0 4 -4 -2 1
3) 6 3 1 0 2 0 4 -4 -2 1
4) 6 3 1 0 2 0 4 -4 -2 1
5) 6 3 1 0 2 2 4 -4 -2 1
6) 6 3 1 0 2 2 -2 -4 -2 1
7) 6 3 1 0 2 2 -2 -4 -2 1
8) 6 3 1 0 2 2 -2 -4 3 1
Как можно видеть, после всех преобразований массива (на последнем шаге) он содержит шесть чётных чисел (6, 0, 2, 2, -2, -4).
Ответ: 6