Два массива по 20элементов(натуральные числа от 1 до 12) . сколько пар из 2 массивов
153
362
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(20,1,12); a.println; var b: =arrrandom(20,1,12); b.println; writeln('число пар: ',a.zip(b,(x,y)-> x=y).count(x-> x)) end. пример 7 8 3 2 4 4 2 6 1 3 5 10 7 10 12 10 3 11 2 1 2 12 4 10 9 8 2 3 12 11 2 1 4 10 8 10 9 9 11 4 число пар: 3
Var n,i: integer; a: array[1..1024] of integer; begin randomize; write('n='); readln(n); for i: =1 to n do a[i]: =random(2*n+1)-n; write('v pramom poradke - '); for i: =1 to n do write(a[i],' '); writeln; write('v obratnom poradke - '); for i: =n downto 1 do write(a[i],' '); writeln; end.
Популярно: Информатика
-
ВикторикаРоэн11.01.2022 10:47
-
Патригг05.02.2023 02:18
-
ttleuberlin31.03.2022 12:49
-
StrangeLis17.10.2022 23:28
-
lnstagramDeviza21.03.2022 16:11
-
Alesandrenok22.05.2023 21:08
-
abdirovadajana13.12.2021 11:45
-
mhjkglckktcfcmjkfg06.09.2021 01:39
-
kirilladmiiral09.04.2023 15:55
-
Mockov04.09.2021 05:36