Задание:
(Паскаль) 3. Заполнить с клавиатуры массив из 10 элементов. Проверить, есть ли в массиве одинаковые элементы и вывести их на экран.
Решение:
Program gt; var a,b: array[1… 100]of integer; j,i,h: integer; beginfor i: =1 to 10 dobeginread (a[i]); end; for i: =1 to 10 dobeginh: =0; for j: =1 to 10 dobeginif (a[i]=a[j]) then h: =h+1; end; b[i]: =h; end; for i: =1 to 10 dobeginif (b[i]>1) then beginfor j: =1 to b[i] dobeginwrite (a[j],'); endlend; end.
Знаете другой ответ?