Const n=10;
m=15;
Var A :Array[1..n,1..m] of integer;
i: 1..n; //индекс (номер) строки
j: 1..m; //индекс (номер) столбца
count: byte;
Begin
<Инициализация (формирование) массива…>;
<Вывод сформированного массива>;
for j:=1 to m do // для столбца с номером j
begin
count:=0 // до проверки столбца количество искомых элементов равно нулю
for i:=1 to n do
begin
if A[i,j] mod 2 =0 then count:=count+1 // обработка элемента i в столбце j
end; // цикла по i
writeln(′В столбце ′,j, ′четных элементов - ′, count); //вывод результатов обработки столбца j
end; // цикла по i
end.
ответь на мой вопрос по английскому я на твой
2+4=6
Объяснение: