Дан одномерый массив а1, а2,..,аn, состоящий из целых чисел. Найти число, которое максимальное количество раз повторяется в элементах массива.

@Роза · Регистрация: 25.05.2010

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

@Lyohich84 · 23.10.2010, 23:31

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
a:array[1..1000] of integer;
n:integer;
i,j,k,max,c:integer;
begin
    write('Kolvo elementov massiva=');readln(n);
    randomize;
    for i:= 1 to n do
      a[i]:=random(21)-10;
    writeln('Massiv');
    for i := 1 to n do
      write(a[i]:5);
    max:=0;
    for i:=1 to n do
     begin
      k:=0;
      for j := 1 to n do
        if a[i]=a[j] then k:=k+1;
      if k>max then
       begin
        max:=k;
        c:=a[i];
       end;
     end;
    writeln;
    write('V elementah massiva maxim povt chislo ',c);
    readln;
end.

@Роза 32 / 32 / 1 Регистрация: 25.05.2010 Сообщений: 80
		1
	Дан одномерый массив а1, а2,..,аn, состоящий из целых чисел. Найти число, которое максимальное количество раз повторяется в элементах массива. 23.10.2010, 14:46. Показов 2309. Ответов 1 Метки нет (Все метки) Дан одномерый массив а1, а2,..,аn, состоящий из целых чисел. Найти число, которое максимальное количество раз повторяется в элементах массива. 1

Опции темы

Дан одномерый массив а1, а2,..,аn, состоящий из целых чисел. Найти число, которое максимальное количество раз повторяется в элементах массива.

Решение