в мемо массив из 10 чисел.все числа разные одно повторяется . какое повторяется.

@Светка) · Регистрация: 18.02.2011

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

в мемо массив из 10 чисел.все числа разные одно повторяется . какое повторяется. (делфи)
подскажите пожалуйста)

@Nehoroshev · 08.06.2011, 09:07

Delphi

for i:=1 to 10 do
  for j:=1 to 10 do
    if (a[i]=a[j]) and (i<>j) then
      begin
        showmessage (inttostr(a[i]));
        abort;
      end;

deathNC · 08.06.2011, 09:14

Delphi

var
  arr: Array of Integer;
  s, buf: String;
  i, j: Integer;
begin
  s := Edit1.Text;
  buf := '';
  for i := 1 to Length(s) do
    If (s[i] = ' ') or (i = Length(s)) then
      begin
        If buf = '' then
          continue;
        If i = Length(s) then
          buf := buf + s[i];
        SetLength(arr, High(arr) + 2);
        arr[High(arr)] := StrToInt(buf);
        buf := '';
      end
    else
      buf := buf + s[i];
  for i := 0 to high(arr) do
    for j := i to High(arr) do
      If i <> j then
        If arr[i] = arr[j] then
          ShowMessage('Совпадение по индексам: ' + IntToStr(i + 1) + ', ' + IntToStr(j + 1));
end;

Кнопку какую-нибудь добавь на форму и туда этот код копируй. Потом запусти прогу и сколько угодно чисел целых пиши в едит, разделяя их пробелами. КОд немного туповат, но тебе сойдёт. Если я правильно понял задание

@Светка) 0 / 0 / 1 Регистрация: 18.02.2011 Сообщений: 52
		1
	в мемо массив из 10 чисел.все числа разные одно повторяется . какое повторяется. 08.06.2011, 01:37. Показов 1832. Ответов 2 Метки нет (Все метки) в мемо массив из 10 чисел.все числа разные одно повторяется . какое повторяется. (делфи) подскажите пожалуйста) 0

	08.06.2011, 09:14

в мемо массив из 10 чисел.все числа разные одно повторяется . какое повторяется.

Решение