Даны целые числа а1, а2, …, аn. Выяснить, есть ли среди них повторяющиеся числа

@Юлия Б. · Регистрация: 17.11.2011

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

сама задача:
1.Даны целые числа а1, а2, …, аn. Выяснить, есть ли среди них повторяющиеся числа, и найти среднее арифметическое без учета повторов. Например, для последовательности чисел 1, 3, 4, 3, 6, 3, 0 надо найти среднее арифметическое чисел 1, 3, 4, 6, 0.

Комментарий модератора

Заголовок темы изменен модератором.
Он должен быть информативным, отображая содержание темы.

@Demsol · 01.12.2011, 16:29

Delphi

var a : array of integer;
                 x : array [0..N-1] of integer;
...
for i:=0 to N-1 do
Read x[i];
 
Setlength(a, 1);
a[0]:=x[1];
 
for i:=1 to N-1 do
    begin 
    isit:=false;
       for j:=1 to length(x) do 
           if x[i]=a[j] then isit:=true;
      if isit then continue else
         begin
         Setlength(a, length(a)+1);
         a[length(a)]:=x[i];
         end;
    end;

end;

@Юлия Б. · 02.12.2011, 15:09 **[ТС]**

спасибо))

@Юлия Б. 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 10
	02.12.2011, 15:09 [ТС]	3
	спасибо)) 0

Опции темы

Даны целые числа а1, а2, …, аn. Выяснить, есть ли среди них повторяющиеся числа

Решение