Question

Паскаль, прошу помощи с 4 по 6, домашнее задание

Answer 1

k := 0;
mx := -101;
for i := 1 to 10 do
for j := 1 to 15 do
if (b[i][j] mod 2 = 0) then
begin
inc(k);
mx := max(mx, b[i][j]);
end;
writeln(k,' ',mx) //  Кол - во четных и больший из них по матрице В.

for i := 1 to 10 do
begin
for j := 1 to 15 do
write(a[i][j],' ');
writeln;
end;
for i := 1 to 10 do
begin
for j := 1 to 15 do
write(b[i][j],' ');
writeln;
end; // Вывод матриц.