Объявлен набор в школьную баскетбольную команду. известен рост каждого из n учеников, желающих попасть в эту команду. подсчитайте количество претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n = 50.

var

a array 150..200 of integer;

i,n,t: integer;

begin

t: =0;

n: =50;

for i: =1 to n do

begin

if a[i]> 170 then

t: =t+1;

end;

end.

// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! procedure sumkoleven(a: array[,] of integer; var s,k: integer); begin   var p: =a.rows.selectmany(x-> x).where(x-> x.iseven);   s: =p.sum; k: =p.count end; procedure maxcoord(a: array[,] of integer; var imax,jmax: integer); begin   (imax,jmax): =(0,0);   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if a[i,j]> a[imax,jmax] then (imax,jmax): =(i,j) end; procedure zeroeven(a: array[,] of integer); begin   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if a[i,j].iseven then a[i,j]: =0 end; procedure maxsumrow(a: array[,] of integer; var irow: integer); begin   irow: =a.rows.select(x-> x.sum).toarray.indexmax; end; begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var sum,kol: integer;   sumkoleven(a,sum,kol); writeln('s=',sum,', k=',kol);   var im,jm: integer;   maxcoord(a,im,jm); writeln('координаты максимума [',im+1,',',jm+1,']');   var b: =copy(a);   zeroeven(b);   b.println(4); writeln(4*b.colcount*'-');   maxsumrow(a,im); writeln('максимальная сумма у строки ',im+1) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   23  94  26  40 -88 -29  88 -46   -98  64 -78  93  17  36  66  56   -52 -16  -7 -33 -63 -95  40  96   10 -30  79 -75 -47  83  30 -70   -37 -50 -80  18  -7 -43  68 -68 s=56, k=25 координаты максимума [3,8]   23    0    0    0    0 -29    0    0     0    0    0  93  17    0    0    0     0    0  -7 -33 -63 -95    0    0     0    0  79 -75 -47  83    0    0   -37    0    0    0  -7 -43    0    0 максимальная сумма у строки 2

  если масив заполнить нужно рандомно: program wk; var i,s: integer; mas: array [1..10] of integer; begin   s: =0;     for i: =1 to 10 do    begin    mas[i]: =random(21)-20;       if mas[i] mod 2=0 then   s: =s+mas[i];     end; writeln('s=',s) end.   если масив заполняется с клавиатуры: program wk; var i,s: integer; mas: array [1..10] of integer; begin   s: =0;     for i: =1 to 10 do    begin          readln(mas[i]);       if (mas[i] mod 2)=0 then s: =s+mas[i];     end;   writeln('s=',s) end.