Ответы и объяснения

  • nemp
  • хорошист
2014-01-16T00:52:35+04:00
Program p31;
var a:array [1..3,1..4] of byte;   
      i,j:byte;
begin
For i:=1 to 3 do 
    begin   
          For j:= 1 to 4 do     
               begin         
                    a[i,j]:=random(10,20);       
                    write(a[i,j],' ');       
               end;   
    Writeln; 
    end;
end.



Program p45;
var b:array [1..3,1..4] of shortint; 
  i,j,k:byte;
begin
k:=0;
Writeln('Массив B');
For i:=1 to 3 do 
    begin   
         For j:= 1 to 4 do     
              begin       
                 b[i,j]:=random(-5,5);     
                 write(b[i,j],' ');         
                 if b[i,j]<>0 then k:=k+1;       
              end;     
    Writeln; 
    end; 
Writeln('Количество ненулевых элементов = ', k);
end.