Задание:
Пожалуйста решите! Напишите программу, которая вводит с клавиатуры два непустых массива целых чисел и печатает те и только те элементы, которыевстречаются в обоих массивах
Решение:
Uses crt; const N=10; var a,b,c: array [1… N] of integer; x,y,z: integer; begin y: =1; for x: =1 to N do begin write ('a[',x,']: '); readln (a[x]); write ('b[',x,']: '); readln (b[x]); if a[x]=b[x] then begin c[y]: =a[x]; inc (y); end; end; writeln; for z: =1 to y-1 do writeln (c[z]: 3); end.
Знаете другой ответ?