Вводится число n, а затем - n чисел. определить, сколько среди них пар одинаковых чисел. 2< =n< =100. на паскале

Лолита171107 Лолита171107    3   14.07.2019 08:20    0

Ответы
Unforgettable77 Unforgettable77  03.10.2020 03:53
var
  i, j, n, s: integer;
  a: array[1..100] of integer;
begin
  read(n);
  for i := 1 to n do read(a[i]);
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] = a[j] then inc(s);
  write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика