Сформировать квадратную матрицу порядка n по заданному образцу решения 1 0 0 .. 0 0 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 0 0 0 1

Const   n = 10; var   matrix : array [1..n] of array [1..n] of integer;   i, j, max : integer; begin   {формирование матрицы}   for j : = 1 to n do   begin     if j < = trunc(n / 2) then         {находим последний индекс для вставки 1}         max : = j             else         max : = n - j + 1;     for i : = 1 to max do                           {заполняем линию единицами}     begin       matrix[j][i] : = 1;       matrix[j][n - i + 1] : = 1;     end;   end;   {вывод матрицы (если не нужно, удалите код)}   for j : = 1 to n do   begin     for i : = 1 to n do       write(matrix[j][i], ' ');     writeln;     end;       end.  

Const   n=10; var   a: array[1..n] of integer;   i,k: integer; begin   randomize;   write('исходный массив: ');   k: =0;   for i: =1 to n do   begin       a[i]: =random(51)-25;       write(a[i],' ');       if (a[i]> 0) and (a[i] mod 2=0) then inc(k)   end;   writeln;   writeln('количество четных положительных чисел равно ',k) end. контрольный прогон исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4 количество четных положительных чисел равно 2

// pascalabc.net 3.2, сборка 1361 от 12.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandomreal(readinteger('n=',10); a.println;   a: =a.select((x,i)-> i mod 2=0? x+1: x-1).toarray; a.println end. пример n= 10 -9.05843428292239 -4.25451094017108 9.66351874157019 -3.1105665178553 4.8065062215582 -2.02809873597142 4.59844561973514 -4.45959216657076 1.37816560984504 -7.69115956392659 -8.05843428292239 -5.25451094017108 10.6635187415702 -4.1105665178553 5.8065062215582 -3.02809873597142 5.59844561973514 -5.45959216657076 2.37816560984504 -8.69115956392659