(Паскаль) 3. Заполнить с клавиатуры массив из 10 элементов

Question

(Паскаль) 3. Заполнить с клавиатуры массив из 10 элементов. Проверить, есть ли в массиве одинаковые элементы и вывести их на экран.

Answer 1

63

exploit3

23 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: