Program
Zn;
uses
CRT;
type
mas=array [1..20, 1..20] of real;
<span>var
A:mas; i,j,g,b,n,m,o:integer; l:real;</span>
Begin
<span> clrscr;</span>
<span> write ('</span>Введите диапазон массива: ');
readln (g,b);
write
('Введите размер массива: ');
readln (n,m);
<span> Randomize;</span>
<span> For i:=1 to n do</span>
<span> Begin</span>
<span> For j:=1 to m do</span>
<span> Begin</span>
<span> A[i,j]:=random(b-g)+g;</span>
<span> write (A[i,j]:5:0, ' ');</span>
<span> End;</span>
<span> writeln;</span>
<span> End;</span>
<span> O:=0;</span>
<span> For i:=1 to n do</span>
<span> Begin</span>
<span> For j:=1 to m do</span>
<span> Begin</span>
<span> A[3,j]:=O;</span>
<span> End;</span>
<span> End;</span>
<span> For i:=1 to n do</span>
<span> Begin</span>
<span> For j:=1 to m do</span>
<span> If i=1 then</span>
<span> Begin</span>
<span> L:=l+A[i,j];</span>
<span> End;</span>
<span> End;</span>
<span> writeln ('</span>Новый массив');
<span> For i:=1 to n do</span>
<span> Begin</span>
<span> For j:=1 to m do</span>
<span> Begin</span>
<span> write (A[i,j]:5:0, ' ');</span>
End;
writeln
End;
writeln
('Сумма элементов первой строки= ',l:5:0);
readln;
End.
Вообщем вот.
<span> </span>