Заданы массивы А и В из N чисел (N=10) случайным образом

var a: array[1… 10] of integer; b: array[1… 10] of integer; c: array[1… 10] of integer; i: integer; begincls; for i: =1 to 10 do begin a[i]: =random (50); write (a[i]: 4); end; writeln; for i: =1 to 10 do begin b[i]: =random (50); write (b[i]: 4); end; writeln; for i: =1 to 10 do begin if a[i]