Одномервые массивы

[Boevik]

пожалуйста помогите написать программу в Паскале!!!"Сколько значений элементов встречаются в массиве более одного раза?Какаие это элементы?"

[Шульц]

Как массив заполняется? Он статический или динамический? А вообще можно и так попробывать.

for i:=0 to d do
for j:=0 to d do
begin
if (a[i]=a[j])and(i<>j) then
ListBox1.Items.Add(a[i])
end;

здесь d это количество элементов, и если элемент повторяется то он заносится в листбокс.

[Boevik]

массив динамический

[puporev]

пожалуйста помогите написать программу в Паскале!!!"

if (a[i]=a[j])and(i<>j) then
ListBox1.Items.Add(a[i])

массив динамический

Разговор глухого с немым.

[Boevik]

а по-другому никак если в школе Паскаль толком не проходили, а в институте заваливают вобще) сам кое-как пытаюсь всё выучить ток пока ничё не понимаю)

[puporev]

Можно по разному решить, предлагаю так:

uses Crt;//модуль для работы с экраном и клавиатурой, нужен для очистки экрана
var
   a:array[1..50] of integer;//массив
   n,i,j,st,x,k:integer;
begin
ClrScr;//очищаем экран
write('n=');readln(n);//размерность массива
randomize;//генерация случайных чисел
writeln('Massiv:');
for i:=1 to n do
    begin
      a[i]:=random(10);//заполняем массив случайными числами инт.[0,9]
      write(a[i],' ');//выводим на экран
    end;
writeln;
{sortirovka po vozr} //сортируем массив по возрастанию обменом(метод "пузырька")
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
     begin
       x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
     end;
writeln('Vstrechajutsa >1 raza:');
st:=-1; k:=0;{nachalo intervala}//выбираем интервалы одинаковых чисел
for i:=2 to n+1 do
   begin
      if a[i]=a[i-1] then
       begin
         if st<0 then st:=i-1;  {sdvigaem interval}
       end
      else
         if st>0 then
          begin
            write(a[i-1],' ');//выводим число, которое повторяется
            k:=k+i-st; {obshee kol}//считаем все числа, которые повторяются
            st:=-1;                //если нужно только по 1 разу, то k:=k+1;    
          end;
   end;
writeln;
writeln('k=',k);//выводим количество
readln
end.

[Boevik]

Спасибо большое!!!!

[Boevik]

вот с этой задачкой тоже проблема помогите пожалуйста решить)
"Сформировать массив В из таких элементов массива А, которые превышают среднее значение массива А"

[eoln]

const
  n = 20;
var
  A, B: array[1..n] of integer;
  i, j: integer;
  sr: real;
begin
  sr := 0;
  write('A  ');
  for i := 1 to n do
  begin
    a[i] := random(10);
    sr := sr + a[i];
    write(a[i]:3)
  end;
  sr := sr / n;
  writeln; writeln('Sred = ', sr:0:2);
  j := 0;
  for i := 1 to n do
  if a[i] > sr then
  begin
    inc(j);
    b[j] := a[i]
  end;
  write('B  ');
  for i := 1 to j do write(b[i]:3);
  readln
end.