Question

Проверить, что в массиве ровно 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<mas[i] then max:=mas[i];

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<5)) then write('В массиве ровно 3 максимальных числа')

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.