Вводится число n, а затем - n чисел. определить, - вопрос №4835702 от kiryanova1969 10.06.2021 19:03

Question

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

kiryanova1969 · Answer

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.

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