40

Помогите пож дана матрица 5 на 5 установить кол-во елементов больше заданного

15 апреля 2023

Помогите пож дана матрица 5 на 5 установить кол-во елементов больше заданного

категория: информатика



60

const n=5; m=10; vara: array [1… n,1… n] of integer; b,c: array [1… m] of integer; d: array [1… m] of boolean; i,t,k: integer; Begin repeat for i: =1 to m do begin d[i]: =true; c[i]: =0; end; randomize; for i: =1 to n do begin for k: =1 to n do begin a[i,k]: =random (9)+1; write (a[i,k]: 4); t: =a[i,k]; b[t]: =b[t]+1; c[t]: =c[t]+1; end; writeln; for t: =1 to m do begin if b[t]=0 then d[t]: =false; if b[t]>0 then d[t]: =d[t] and true; b[t]: =0; end; end; for i: =1 to m do if d[i] then write ('число — ',i,' повторений — ',c[i]); writeln; readln; until false; End. (также с выведением самих чисел…)

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...