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.

Answer 3

Вот пример кода на языке Паскаль, который проверяет, содержит ли массив ровно 3 одинаковых максимальных числа:

pascalCopy code
program CheckMaxNumbers;

const
  N = 10; // Размер массива
  
var
  arr: array[1..N] of Integer;
  max1, max2, max3: Integer; // Три максимальных числа
  i, count: Integer;
  found: Boolean;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(10); // Здесь 10 - максимальное значение числа
  
  // Поиск трех максимальных чисел
  max1 := arr[1];
  max2 := arr[1];
  max3 := arr[1];
  
  for i := 2 to N do
  begin
    if arr[i] > max1 then
    begin
      max3 := max2;
      max2 := max1;
      max1 := arr[i];
    end
    else if arr[i] > max2 then
    begin
      max3 := max2;
      max2 := arr[i];
    end
    else if arr[i] > max3 then
      max3 := arr[i];
  end;
  
  // Подсчет количества максимальных чисел в массиве
  count := 0;
  for i := 1 to N do
  begin
    if arr[i] = max1 then
      count := count + 1;
    if arr[i] = max2 then
      count := count + 1;
    if arr[i] = max3 then
      count := count + 1;
  end;
  
  // Проверка условия
  if count = 3 then
    found := True
  else
    found := False;
  
  // Вывод результатов
  writeln('Массив: ');
  for i := 1 to N do
    write(arr[i], ' ');
  
  writeln;
  
  if found then
    writeln('В массиве найдено ровно 3 одинаковых максимальных числа.')
  else
    writeln('В массиве не найдено ровно 3 одинаковых максимальных числа.');
    
  readln;
end.

В этом примере программа генерирует массив случайных чисел, а затем ищет три максимальных числа в массиве. Затем она подсчитывает количество максимальных чисел в массиве и проверяет, равно ли оно 3. Если количество равно 3, то выводится сообщение о том, что в массиве найдено ровно 3 одинаковых максимальных числа. В противном случае выводится сообщение о том, что в массиве не найдено ровно 3 одинаковых максимальных числа.