Заполните случайными числами в диапазоне от 1 до 5 два массива:

Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20].найдите и выведите на экран тoлько те элементы этих массивов, значения которых совпадают. К примеру, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4

НА ЯЗЫКЕ ПАСКАЛЬ

Задать свой вопрос
1 ответ
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Виолетта Подшолкина
спасибо почему от 0 до 19?а не от 1 до 20?
Ярослава Калитвенцева
Это тоже самое.
Usman Esenija
Так легче с массивом работать.
Олег Колесникович
а как сделать вторую часть задания с выводом на экран ?
Олег Лезжов
теснее делал.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт