найти максимальный элемент массива и сосчитать количество элементов равных ему.Вывести это количество. - №1615154

найти максимальный элемент массива и сосчитать количество элементов равных ему.Вывести это количество.
- Предмет:
  Информатика
- Автор:
  morton
- 5 лет назад

Ответы 2

program MassivMaxCount;

Uses Crt;

const n=1000;

var j,m,c:integer;

var a: arrray [1..n] of real;

begin

randomize;

clrscr;

write('Введите количество элементов массива n<1000: ');

readln(m);

c:=0;

max:=a[1];

for i:=1 to m do

begin

a[i]:=random(20)+5;

if (a[i]>max) tnen max:=a[i]

end;

for i:=1 to m do

if (a[i]=max) then c:=c+1;

writeln('Количество элементов равных наибольшему: ',c);

readkey;

end.
- Автор:
  yogi
- 5 лет назад
- 0
Писал код для другого, но адаптировал под твою задачу)

var mas: array[1..1000] of integer; i,a,n,c: integer;

begin n:=0; writeln ('Введите количество элементов массива'); readln (c); randomize; write ('Массив - '); for i := 1 to c do begin mas[i] := random(c); write(' ', mas[i], ' '); end; writeln; begin for i := 1 to c do if mas[i] > mas[i + 1] then swap(mas[i], mas[i +1]); end; for i:= 1 to c do begin mas[i]:=mas[i+1]; a:=mas[i]; end; writeln ('Максимальный элемент массива ',mas[i]); for i:=1 to c do if a=mas[i] then inc(n); write ('Количество равных элементов массива ',n);end.
- Автор:
  eddiewang
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years