помогите решить или перевести Pascal в Qbasic

Question

помогите решить или перевести 
В матрице А (N,N) найти элементы, встречающиеся более одного раза. Из этих элементов составить и напечатать матрицу Х из двух столбцов. В первом столбце разместить сами значения таких элементов, во втором – количество раз, которое они встретились. Составить и напечатать новую матрицу B(N,N), элементами которой являются числа, указывающие сколько раз встретился элемент, находящийся в этой же позиции в А (N,N).

Юрий · Accepted Answer

глухо тут Владик (

Дарья Грачева · Answer

Если задачу решать "прямо в лоб" то получится примерно такой алгоритм 
 
var i,j,n,m,k,ii,jj: integer; 
 a,b: array[1..100,1..100] of integer; 
 x: array[1..100,1..2] of integer; 
 
procedure result; 
begin 
 for ii:=1 to n do begin 
 for jj:=1 to n do begin 
 if a[i,j]=b[ii,jj] then begin 
 inc(m); 
 if m>1 then b[ii,jj]:=0; 
 end; 
 end; 
 end; 
 if m>1 then begin 
 inc(k); x[k,1]:=a[i,j]; x[k,2]:=m; 
 end; 
 m:=0; 
end; 
 
begin 
cls; randomize; 
n:=7; 
 for i:=1 to n do begin 
 for j:=1 to n do begin 
 a[i,j]:=random(90)+10; 
 b[i,j]:=a[i,j]; 
 write(a[i,j],' '); 
 end; 
 writeln; 
 end; 
 for i:=1 to n do begin 
 for j:=1 to n do begin 
 result; 
 end; 
 end; 
 writeln; 
 for i:=1 to k do begin 
 writeln(x[i,1],' ',x[i,2]); 
 end; 
end. 
 
Но он совершенно не оптимизирован. Более быстрый алгоритм: сортировка по возрастанию всех членов матрицы и подсчет повторяющихся элементов. В комментариях напишу в другой раз. Вторую задачу можно решить, добавив в процедуру подсчет количества повторений для каждого элемента, а алгоритм тот же.