написать программу обработки двумерного массива

[Miushka]

может ктонить сможет решить:

написать программу обработки двумерного массива размерности n на n с использованием подпрограммы- функции и без неё. Максимальный элемент в чётных столбцах прибавить к пол элементам 1 ой строки

[pascal65536]

прибавить к пол элементам 1 ой строки

Это как

[ADSoft]

пол - положительные....
Если нужно - обращайся в ЛС или через контакты

[-=<[Evklidd]>=-]

Извини, но что значит "обработать"??? Можно как-то по подробнее и по конкретнее описать что надо с этой матрицой сделать???

[Alex21]

Miushka, показывай, что сделано?
За тебя никто учиться не будет!
А что не понятно - спрашивай, с радостью объяснят.

[nikleb]

Если понял то так

program prog;
uses crt;
var a:array[1..100,1..100]of integer;
    k,i,i2,max:integer;
procedure maxim;
          begin
          for i:=1 to k do
              for i2:=1 to k div 2 do
                  if a[i,i2*2]>max then max:=a[i,i2*2];
          end;
begin
randomize;
clrscr;
write('Koli4estvo stolbcov: ');
readln(k);
clrscr;
for i:=1 to k do
    begin
    for i2:=1 to k do
        begin
        a[i,i2]:=random(20)-10;
        write(a[i,i2]:3);
        end;
    writeln;
    end;
maxim;
writeln;
for i:=1 to k do
    if a[1,i]>0 then
       inc(a[1,i],max);
for i:=1 to k do
    begin
    for i2:=1 to k do
        write(a[i,i2]:3);
    writeln;
    end;
readln;
end.