program raf105;
const
n = 5;
var
a: array[1..n,1..n] of integer;
i,j,num,n1,n2: integer;
begin
writeln('вводите числа столбцов матрицы по очереди');
for i: =1 to n do
begin
writeln('столбец ',i);
for j: =1 to n do
readln(a[i,j]);
end;
for i: =1 to n do
begin
n1: = 0;
n2: = 0;
for j: =1 to n do
begin
if (a[i,j] mod 2 < > 0) and (a[i,j] < > 0)
then n1: = n1+1;
end;
for j: =1 to n do
begin
if (a[i,j] mod 2 = 0) and (a[i,j] < > 0)
then n2: = n2+1;
end;
if n1 > n2
then num: = i;
end;
writeln('вывод: ',num);
end.
pascalabc 3.4.2Поделитесь своими знаниями, ответьте на вопрос:
Что лишние : украина , россия , болгария , сша