Ответы на вопрос:
Цикл в цикле ваша тема: program pin; var i, j, cm: integer; povtor: boolean; const m: array[1..10] of integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2); begin cm : = 0; for i : = 1 to 10 do begin povtor : = false; for j : = 1 to 10 do begin if (i < > j) and (m[ i ] = m[ j ]) then begin povtor : = true; break; end; end; if not povtor then cm : = cm + 1; end; writeln(cm); end.
Популярно: Информатика
-
mehan201830.09.2020 22:31
-
reginа11122233312.03.2021 15:31
-
Маргарита551506.11.2020 09:41
-
Арина83838377331.07.2022 09:37
-
danila11042005125.04.2020 16:44
-
TanyaMakarova2616.09.2022 11:38
-
LadnoOK01.09.2020 06:59
-
ozorkaltseva13.08.2022 12:32
-
nourdana07.08.2022 19:01
-
СашаСтрела08.08.2020 01:46