Вмассиве a (3,4) элементом последней строки присвоить значения o(стереть), и найти сумму элементов первой строки.

program zn;

uses crt;

type mas=array [1..20, 1..20] of real;

var a: mas; i,j,g,b,n,m,o: integer;     l: real;

begin

        clrscr;

        write ('введите диапазон массива: ');

        readln (g,b);

        write ('введите размер массива: ');

        readln (n,m);

        randomize;

        for i: =1 to n do

                begin

                  for j: =1 to m do

                        begin

                                  a[i,j]: =random(b-g)+g;

                                  write (a[i,j]: 5: 0, '  ');

                        end;

                        writeln;

                end;

        o: =0;

        for i: =1 to n do

            begin

                for j: =1 to m do

                        begin

                                  a[3,j]: =o;

                        end;

            end;

        for i: =1 to n do

                begin

                    for j: =1 to m do

                          if i=1 then

                            begin

                                      l: =l+a[i,j];

                            end;

                end;

        writeln ('новый массив');

        for i: =1 to n do

              begin

                for j: =1 to m do

                        begin

                                  write (a[i,j]: 5: 0, '  ');

                        end;

                        writeln

              end;

              writeln ('сумма элементов первой строки= ',l: 5: 0);

readln;

end.

  вообщем вот.

так 3+5=8, а бусинок на 2500 больше