ПАСКАЛЬ! Заполните случайными числами в диапазоне…

Question

ПАСКАЛЬ! Заполните случайными числами в диапазоне от 1 до 5 два массива А [1… 10] и B [1… 10], затем выведите их на экран. Найдите те элементымассивов, которые попарно совпадают (например, А[2] и В[2]) и выведите сведения о них. Если совпадений нет – следует проинформировать об этом пользователя.

Answer 1

39

theorbitalx

10 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: