Программа Pascal

[Aleksander Goose]

Помогите решить задачи:
В двумерном массиве найти сумму всех положительных элементов.
В двумерном массиве поменять местами элементы стоящие на чётных местах с элементами стоящими на не чётных.

[dimon_snake]

Сумма положительных элементов :

var
a:array[1..100] of integer;
i,sum:integer;
begin
\\заполняем массив
sum:=0;
for i:=1 to 100 do 
if a[i]>=0 then 
sum:=sum+a[i];
Write(sum);
Readln;
end.

[dimon_snake]

Меняем местами:

const n=10;
var a:array[1..n] of integer;
l,ik:integer;
begin
Randomize;
for i:=1 to 10 do 
begin 
  a[i]:=Random(10)+1;
  Write(a[i],' ');
end;
Writeln;
l:=1;
for i:=1 to n div 2 do
begin 
  k:=a[l];
  a[l]:=a[l+1];
  a[l+1]:=k;
  l:=l+2;
end;
for i:=1 to n do 
Write(a[i],' ');
Readln;
end.

[Aleksander Goose]

Это в одномерном массиве, а мне нужно в двумерном.

[dimon_snake]

Каюсь, не то написал.
Вот для суммы:

var 
a:array[1..10,1..10] of integer;
i,j,sum:integer;
begin
sum:=0;
\\заполняем чем-то массив
for i:=1 to 10 do
  for j:=1 to 10 do 
    if a[i,j]>0 then sum:=sum+a[i,j];
Write(sum);
Readln;
end.

[Dvoishnik]

............
var a:array[1..n,1..m] of integer;
.......
for i:=1 to 100 do
for j:=1 to 100 do 
if a[i,j]>=0 then 
sum:=sum+a[i,j];

разницы не какой

чуть чуть не успел)

[dimon_snake]

Кто не успел, то опоздал.)
А для смены мест:

var
a:array[1..10,1..10] of integer;
i,j,sum,k,l:integer;
begin
Randomize;
for i:=1 to 10 do
begin
  Writeln;
  for j:=1 to 10 do
  begin
    a[i,j]:=Random(10)+1;
    Write(a[i,j],' ');
  end;
end;
Writeln;
for i:=1 to 10 do  
begin
  l:=1;
  for j:=1 to 10 div 2 do
  begin
    k:=a[i,l];
    a[i,l]:=a[i,l+1];
    a[i,l+1]:=k;
    l:=l+2;
  end;
end;
for i:=1 to 10 do 
begin
  Writeln;
  for j:=1 to 10 do
  write(a[i,j],' ');
end;
Readln;
end.