Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Var a:array[1..3,1..3] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do begin
read(a[i,j]);
if not odd(a[i,j]) then s+=a[i,j];
end;
writeln(s);
<span>end.</span>
<span>а) Ученик отвечает у доски. </span>
<span>б) Боря читает статью в журнале. </span>
<span>в) Оля слушает песню по радио. </span>
<span>г) Гена говорит с мамой по телефону. </span>
<span>д) Водитель автобуса объявляет остановку.</span>
У крестиков два выигрышных поля.
1) Среднее поле
2)Верхний правый угол
Это объект любой окружающего мира