Проверить, что в массиве ровно 3 одинаковых максимальных числа.Паскаль.плиииззз))))

Question

Проверить, что в массиве ровно 3 одинаковых максимальных числа.Паскаль.плиииззз))))

Comments

в смысле если в массиве будет5 0 9 5 10 12 12 11 12 то написать что в массиве есть 3 одинаковых максимальных числа?

---

да , программу надо написать

---

значения в массив задаются пользователем или рандомно?

---

рандомно

---

кол-во чисел вводится с клавиатуры?

---

да наверное

---

не знаю

Answer 1

var

i,n,max,k: integer;

mas: array[1..100] of integer;

begin

randomize;

writeln('Введите кол-во чисел');

readln(n);

for i:=1 to n do

mas[i]:=random(10)+1;

max:=mas[1];

for i:=2 to n do

if max

for i:=1 to n do

write(mas[i], ' ');

for i:=1 to n do

if mas[i]=max then inc(k);

if ((k>2) and (k

else write('В массиве не 3 максимальных числа');

end.

Answer 2

const n=5;

var i,m,k: integer;

a: array[1..n] of integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(3);

write(a[i],' ')

end;

writeln;

m:=a[1];

for i:=2 to n do if m < a[i] then m:=a[i];

for i:=1 to n do if m=a[i] then k:=k+1;

if k=3 then write('В массиве ровно 3 максимальных числа')

else write('В массиве не ровно 3 максимальных числа');

end.