Question

Пожалуйста помогите! Я написал программу которая вычисляет наибольший элемент одномерного массива и сколько раз он встречается.Но проблема в том что часть программы которая вычисляет кол-во макс. элементов не обновляет макс.элементы.То есть если я задам числа 22, 22, 33, 33, 33 то оно выдаст что макс.элементов 5, а если я задам числа 33 33 33 22 22 то она выдаст правильный ответ - "три макс. элемента". Program FW_PIMAX; Uses CRT; var a : array[1..5] of integer; i,max,k : integer; begin clrscr; i := 1; max := a[1]; k := 0; while i <= 5 do begin write('a[i] = '); readln(a[i]); if (a[i] >= max) then begin max := a[i] ; k := k + 1; i := i + 1; end else begin i := i + 1; end; end; writeln('max: ',max); writeln('kolvo max: ',k); end.

Answer 1

Файл во вложении......

Answer 2

Привет! Я могу помочь с проблемой, которую ты описал. Похоже, что у тебя возникает проблема с обновлением переменной `max` и подсчетом количества максимальных элементов в массиве.

Вот исправленный код, который должен работать правильно:

Program FW_PIMAX;
Uses CRT;
var
  a: array[1..5] of integer;
  i, max, k: integer;
begin
  clrscr;
  i := 1;
  max := a[1];
  k := 0;
  
  while i <= 5 do
  begin
    write('a[i] = ');
    readln(a[i]);
    
    if a[i] > max then
    begin
      max := a[i];
      k := 1; // Обновляем k только при обнаружении нового максимального элемента
    end
    else if a[i] = max then
    begin
      k := k + 1; // Увеличиваем k, если текущий элемент равен максимальному
    end;
    
    i := i + 1;
  end;
  
  writeln('max: ', max);
  writeln('kolvo max: ', k);
end.

Теперь программа должна правильно подсчитывать количество максимальных элементов в массиве. Проверь ее работу и дай знать, если у тебя возникнут еще вопросы!