Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти суммы положительных элементов каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.

Uses crt; var e:array[1 ... 3,1 ... 7] of integer; s, max, n, m:integer;

index, sum:integer;

procedure max_el;

begin max:=e[1,1];

sum:=0;

index:=0;

for n:=1 to 3 do

begin

for m:=1 to 7 do

begin

if e[n, m]>max then

begin

max:=e[n, m];

index:=m;

end;

end;

end;

for n:=1 to 3 do

begin

if e[n, index]<0 then

begin

sum:=sum+e[n, index];

end;

end;

writeln ('naibolwiy element = ', max,' summa otricatelnyh = ', sum) ;

end;

begin

clrscr;

writeln ('elementy massiva') ;

writeln;

randomize;

for n:=1 to 3 do begin for m:=1 to 7 do

begin

e[n, m]:=random (100) - 50;

write ('', e[n, m],' ') ;

end;

writeln;

end;

writeln;

writeln;

max_el;

readkey;

end.