контрольная

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..5,1..6] of integer;
  B:array[1..7,1..5] of integer;
  i,j,sum1,sum2,s,kol1,kol2:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
   randomize;
   writeln('....');
   for i:=1 to 5 do
   begin
   for j:=1 to 6 do
   begin
   a[i,j]:=random(200)-100; write(a[i,j]:5);
   end;
   writeln
   end;
   writeln('....');
   for i:=1 to 7 do
   begin
   for j:=1 to 5 do
   begin
   b[i,j]:=random(200)-100; write(b[i,j]:5);
   end;
   writeln
   end;
   for i:=1 to 5 do
   begin  s:=0;
   for j:=1 to 6 do
   begin
   s:=s+a[i,j]; sum1:=sum1+a[i,j];
   end;
   if s>0 then kol1:=kol1+1;
   end;
   writeln('sum1=',sum1,' kol1=',kol1);
   for i:=1 to 7 do
   begin  s:=0;
   for j:=1 to 5 do
   begin
   s:=s+b[i,j]; sum2:=sum2+b[i,j];
   end;
   if s>0 then kol2:=kol2+1;
   end;
    writeln('sum2=',sum2,' kol2=',kol2);
   readln
end.