Решить, паскаль: в аэропорту три посадочные полосы. для каждой известны длина и признак занятости (признак =1, если полоса занята и =0, если полоса свободна для самолета с заданным номером рейса и длиной посадочного пути определить возможность посадки и указать номера посадочных полос.

A, b: array[1..100] of integer; i, k, n. m, c: integer; begin readln(c); for i: =1 to 3 do readln(a[i], b[i]); for i: =1 to 3 do if (a[i]> c) and (b[i]=0) then writeln('yes', i) else writeln('no'); readln; end.

//pascalabc.net 3.1 сборка 1200 begin   var n : = readinteger('n=');   var a : = matrixrandom(n, n, -10, 10);   println(a);     for var i : = a.getlowerbound(0) to a.getupperbound(0) do       if a[i, a.getlowerbound(1)] < 0 then begin           var s1 : = 0;           var s2 : = 0;           var s3 : = 0;           for var j : = a.getlowerbound(1) to a.getupperbound(1) do               if i < j then s1 += a[i, j]               else if i = j then s2 += a[i, j]               else if i > j then s3 += a[i, j];           writeln(i + ': ' + s1 + ', ' + s2 + ', ' + s3);       end; end.

//pascalabc.net 3.2 сборка 1318 const   n=7;   var     ma: array[1..n,1..n] of integer;   countn,countp,i,j: integer;   sr: real; begin for i: =1 to n do   for j: =1 to n do     begin       readln(ma[i][j]);       if ma[i][j]> 0 then inc(countp) else         if ma[i][j]< 0 then inc(countn);     end; for i: =1 to n do   begin     for j: =1 to n do       write(ma[i][j]: 4);     writeln;   end; writeln('count of positive=',countp,', count of negative=',countn);   for j: =1 to n do   begin   sr: =0;     for i: =1 to n do     sr+=ma[i][j];   writeln(j,' ',sr/n);   end; end.