пара простых задачек в паскале

[glebcherednik]

помогите пожалуйста с решением, ну или хотя бы с составлением алгоритма
1) Задан одномерный массив А. Найти сумму всех его ненулевых элементов. Размерность массива 20. Заполнение массива осуществить случайными числами от -50 до 50.
2) Удалить столбец двумерного массива целых чисел размерностью 5*4, в котором находится максимальный элемент этого массива. Заполнение массива осуществить с клавиатуры

[Sayto]

1-ая:

program zd;
var
   a:array [1..20] of integer;
   i,sum:integer;
begin
randomize;
for i:=1 to 20 do
    a[i]:=random(101)-50;
for i:=1 to 20 do
begin
    sum:=sum+a[i];
end;
writeln(sum);
end.

Только поменяй на ручной ввод
2-ая:

program zd;
var
   a,b:array [1..5,1..4] of integer;
   i,j,max,indx,p:integer;
begin
randomize;
     for i:=1 to 5 do
         for j:=1 to 4 do
             a[i,j]:=random(51);
     max:=a[1,1];
     for i:=1 to 5 do begin
         for j:=1 to 4 do
             if(a[i,j]>max)then begin
             max:=a[i,j];indx:=j;
             end;
     end;
     for i:=1 to 5 do begin
         for j:=1 to 4 do
         write(a[i,j]:4);
     writeln();
     end;
     for i:=1 to 5 do begin
         for j:=indx to 3 do begin
         a[i,j]:=a[i,j+1];
         end;
     end;
     for i:=1 to 5 do
         for j:=1 to 3 do
         b[i,j]:=a[i,j];
     writeln();
     writeln();
     writeln();
     for i:=1 to 5 do begin
         for j:=1 to 3 do
         write(b[i,j]:4);
     writeln();
     end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[glebcherednik]

спасибо!!!!!