«Обработка двумерных числовых массивов»

[orehov]

Заполнить двумерный числовой массив А[5, 5] целыми числами. Найти сумму четных по значениям элементов каждого столбца массива. Определить номер столбца с наименьшей суммой четных элементов.

[barhat]

А язык какой?

[orehov]

турбо паскаль

[Firstchar]

uses crt;
var mas:array[1..100,1..100] of integer;
ch:array[1..100] of integer;
i,j,n,m,min,k:integer;
begin
write('введите число cтрок: ');
readln(n);
write('введите число столбцов: ');
readln(m);
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=random(50);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(mas[i,j]:3);
end;
for j:=1 to m do
sh[j]:=0;
for j:=1 to m do
begin
for i:=1 to n do
if i mod 2=0 then ch[j]:=ch[j]+mas[i,j];
end;
min:=ch[1];
for j:=1 to m do
if min>ch[j] then
begin
min:=ch[j];
k:=j;
end;
writeln;
writeln('минимальная сумма четных чисел в ',k,'-м столбце.и равна: ',min);
readkey;
end.