Массив: Найти в одномерном массиве элемент, который наибольшее количество раз повторяется в массиве

@ВладПРО · Регистрация: 27.03.2013

Студворк — интернет-сервис помощи студентам

программу нужно сделать в PascalABC.Найти в одномерном массиве элемент,который наибольшее кол-во раз повторяется в массиве. Вывести этот элемент и кол-во его вхождения в массив.

@K1m · 08.05.2013, 13:18

Pascal

program mas;
uses crt;
var a,b: array[1..100] of integer;
    k,i,j,max:integer;
begin
clrscr;
writeln('Кол-во эл. массива:');
readln(k);
 
writeln('Введите массив:');
for i:=1 to k do read(a[i]);
 
max:=1;
for i:=1 to k do
begin
  for j:=1 to k do
    if a[j] = a[i] then b[i]:=b[i]+1;
  if b[i] > b[max] then
  begin
    b[max]:=b[i];
    max:=i;
  end;
end;
 
writeln('Число ',a[max],' входит в массив ',b[max],' раз(а)');
 
readkey;
end.

@ВладПРО 0 / 0 / 1 Регистрация: 27.03.2013 Сообщений: 14
		1
	Массив: Найти в одномерном массиве элемент, который наибольшее количество раз повторяется в массиве 08.05.2013, 12:28. Показов 3943. Ответов 1 Метки нет (Все метки) программу нужно сделать в PascalABC.Найти в одномерном массиве элемент,который наибольшее кол-во раз повторяется в массиве. Вывести этот элемент и кол-во его вхождения в массив. 0

Опции темы

Массив: Найти в одномерном массиве элемент, который наибольшее количество раз повторяется в массиве

Решение