Есть ответ 👍

Два массива по 20элементов(натуральные числа от 1 до 12) . сколько пар из 2 массивов

153
362
Посмотреть ответы 2

Ответы на вопрос:


// 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.

Популярно: Информатика