Задана матрица А размера 8*7, состоящая из констант от 0 до 9

[Полковник]

Задана матрица А размера 8*7, состоящая из констант от 0 до 9. Необходимо построить одномерный массив В длинной 10, элементами которого являются числа повторов этих констант.

[Serge_Bliznykov]

Так точно, командир.
Выполняю приказ!

var A : array[1..8,1..7] of integer;
  B : array[0..9] of integer;
  i, j : integer;
begin
  Radnomize;
  {заполенение массива}
  for i:= 1 to 8 do
    for j:=1 to 7 do 
       A[i,j] := random(10);

 {вывод массива}
  for i:= 1 to 8 do begin 
    for j:=1 to 7 do Write(A[i,j] : 2);
    WriteLn
  end;

  {обнуление массива B} 
  for i:=0 to 9 do B[i] := 0;

 {заполение массива B}
  for i:= 1 to 8 do
    for j:=1 to 7 do 
       Inc(B [ A[i,j] ]);

  {вывод массива B} 
  for i:=0 to 9 do Write(B[i]: 3);
  WriteLn;
  Readln
end.

[Вадим Мошев]

Парниша попал в армию, дослужился до полковника, а всё никак институт не забудет, из которого отчислили.
______________

Есть, сэр!

[Полковник]

Парниша попал в армию, дослужился до полковника, а всё никак институт не забудет, из которого отчислили.

Прав практически!

[Naive]

Вадим, таких как раз не отчисляют, отчисляют таких как мы, кто своим мозгом думает)))
у нас тут теперь страна эффективных менеджеров, которым нужно тупо запарить кого-то на выполнение некой работы)
он еще поди красный диплом получит)