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

Лучший Ответ!
2014-02-15T22:06:05+04:00
1)
const line = 3;
const column = 5;
var a:array [1..line,1..column] of integer;
     i,j,k:integer;
     flag:boolean;
begin
  for i:=1 to line do
     for j:=1 to column do
      begin
        write ('A[',i,'][',j,'] = ');
        readln (a[i][j]);
      end;
  k:=0;
  flag:=false;
  for j:=1 to column do
   begin
     k:=0;
     for i:=1 to line do
      if (a[i][j]<0) then inc(k);
     if (k=2) then
      begin
       flag:=true;
       break;
      end;  
   end;
   if (flag) then writeln ('YES') else writeln ('NO');
end.

2)
const size = 3;
var a:array [1..size,1..size] of integer;
      i,j:integer;
begin
  for i:=1 to size do
    begin
      for j:=1 to size do
        begin
         if (i+j<size+1) or (i+j>size+1) then a[i][j]:=1 else a[i][j]:=0;
         write (a[i][j]:2);
        end;
      writeln;
    end;
end.