Двумерный массив...

uses crt;
var
a:array[1..100,1..100] of integer;
i,j,k,kk,n,m,s,max,maxj:integer;
begin
writeln('vvedite rozmernoct massiva');
readln(n,m);
kk:=0;
max:=-100*m;
randomize;
for i:=1 to n do begin
k:=0;
for j:=1 to m do begin
a[i,j]:=random(199)-99;
if a[i,j]=0 then k:=k+1;
write(a[i,j]:4);
end;
if k=0 then kk:=kk+1;
writeln;
end;
writeln;
writeln('kolichestvo beznylevuh strok ',kk);
for j:=1 to m do begin
s:=0;
for i:=1 to n do begin
s:=s+a[i,j];
end;
if s>max then begin
max:=s;
maxj:=j;
end;
end;
writeln('max symma stolbcov ',max,' v stolbce ',maxj);
readln;
end.

Uses crt;
const n=20;
var a:array[1..n] of integer;
i,s:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
s:=1;
for i:=1 to n do
If i mod 2=0 then s:=s*a[i];
writeln('s=',s);
readln;
end.

uses crt;
var
a:array[1..100] of integer;
b:array[1..100] of integer;
i,s,pr,im,imm,n,k:integer;
begin
writeln('rozmer?');
readln(n);
pr:=1;
s:=0;
k:=0;
randomize;
for i:=1 to n do begin
a[i]:=random(19)-9;
write(a[i]:3);
end;
writeln;
for i:=1 to n div 2 do begin
pr:=pr*a[i*2];
end;
writeln('proizvidenie chetnuh=',pr);
for i:=1 to n do begin
if a[i]<0 then imm:=i;
end;
for i:=n downto 1 do begin
if a[i]<0 then im:=i;
end;
 
if im<>imm then begin
 for i:=im to imm do begin
  s:=s+a[i];
 end;
 writeln('symma ',s);
end
else writeln('y vas tolko 1 otr chislo');
 
for i:=1 to n do begin
if a[i]=0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
for i:=1 to n do begin
if a[i]<>0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln('novuj massiv');
for i:=1 to n do begin
 write(b[i]:3);
end;
end.