Задан двумерный массив, состоящий из 10 строк и 10 столбцов. сконструируйте программу, которая бы подсчитывала положительные и отрицательные элементы и записывала их в два разных массива

PascalABC.NET

const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,kp,kq:integer;
  p,q:array of integer; // динамические массивы
begin
  Randomize;
  Writeln('Исходный массив из случайных чисел');
  kp:=0; kq:=0;
  SetLength(p,n*n); SetLength(q,n*n);
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(101)-50; // диапазон [-50;50]
      Write(a[i,j]:4);
      if a[i,j]>0 then begin p[kp]:=a[i,j]; Inc(kp) end
      else
        if a[i,j]<0 then begin q[kq]:=a[i,j]; Inc(kq) end
      end;
    Writeln
  end;
  SetLength(p,kp); SetLength(q,kq); // отрегулировали по заполнению
  Writeln('Положительные');
  for i:=0 to kp-1 do Write(p[i],' '); Writeln;
  Writeln('Отрицательные');
  for i:=0 to kq-1 do Write(q[i],' '); Writeln
end.

Пример
Исходный массив из случайных чисел
  46  47  -8 -32  36  41 -49 -15  25 -33
  18  15   1  15  21  43  30  41 -15 -21
 -48  15  -5  17  19  30 -38   0  10  11
 -16  10  48 -30 -40 -49 -48  24  18  24
  47  45  50  44  -3 -15  19  29 -13  38
 -23   3 -23  19  19 -19   1  26   0 -45
  28   1  26 -36  34 -43  18 -19   4  19
  41 -45 -27  12 -18 -43  16   1 -31 -17
 -39 -16 -37  22 -17  31 -17 -22   1  30
   0 -24 -27  12  46  -4 -32  36 -40 -11
Положительные
46 47 36 41 25 18 15 1 15 21 43 30 41 15 17 19 30 10 11 10 48 24 18 24 47 45 50 44 19 29 38 3 19 19 1 26 28 1 26 34 18 4 19 41 12 16 1 22 31 1 30 12 46 36
Отрицательные
-8 -32 -49 -15 -33 -15 -21 -48 -5 -38 -16 -30 -40 -49 -48 -3 -15 -13 -23 -23 -19 -45 -36 -43 -19 -45 -27 -18 -43 -31 -17 -39 -16 -37 -17 -17 -22 -24 -27 -4 -32 -40 -11

Виды шрифтов, отличающихся характером и графическим начертанием (формой и размером засечек, а также контрастностью):

Рубленные шрифты (Гротеск) – малоконтрастные шрифты, засечки отсутствуют. Символы таких шрифтов имеют одинаковую толщину, хорошо читаются как в мелком, так и в крупном размере. На сегодняшний день широко применяются в оформлении сайтов.

Медиевальные. Характеризуются умеренной контрастностью и наличием небольших засечек, которые изящно сопрягаются с главными штрихами. Символы и буквы в таких шрифтах имеют преимущественно наклонную ось и округлые объемы.

Брусковые шрифты. Обладают небольшой контрастностью, для них характерны длинные утолщенные засечки, которые имеют форму брусков. Начертания брусковых шрифтов отличаются плавными переходами от толстых штрихов к тонким линиям с небольшим закруглением. Они в свою очередь делятся на несколько отдельных типов: египетские, современные и старые шрифты.  

Обыкновенные шрифты. Характеризуются ярко выраженной контрастностью и продолговатыми ровными засечками, которые перпендикулярно соединены с основными элементами.

Новые малоконтрастные шрифты. Эту группу отличают длинные скругленные засечки, которые плавно соединяются с основой символа. Применяются при работе с большими объемами текста, например в газетах и журналах.

При цитировании статьи, размещенной на чьем-то сайте, необходимо указать имя автора, название статьи и адрес сайта, с которого взята статья.

Согласно Ст. 1274 ГК РФ (Свободное использование произведения в информационных, научных, учебных или культурных целях), «Допускается без согласия автора или иного правообладателя и без выплаты вознаграждения, но с обязательным указанием имени автора, произведение которого используется, и источника заимствования:

1) цитирование в оригинале и в переводе в научных, полемических, критических, информационных, учебных целях, в целях раскрытия творческого замысла автора правомерно обнародованных произведений в объеме, оправданном целью цитирования, включая воспроизведение отрывков из газетных и журнальных статей в форме обзоров печати»

ответ: 5