Задание:
ПАСКАЛЬ! Заполните случайными числами в диапазоне от 1 до 5 два массива А [1… 10] и B [1… 10], затем выведите их на экран. Найдите те элементымассивов, которые попарно совпадают (например, А[2] и В[2]) и выведите сведения о них. Если совпадений нет – следует проинформировать об этом пользователя.
Решение:
const n=10; var a, b: array[1… n] of integer; i: integer; begin write ('Массив a: '); for i: =1 to n do begin a[i]: =random (5); write (a[i], '); end; writeln; write ('Массив b: '); for i: =1 to n do begin b[i]: =random (5); write (b[i], '); end; writeln; for i: =1 to n do if (a[i]=b[i]) then writeln ('a[', i, ']=b[', i, ']'); end.
Знаете другой ответ?