Поиск результатов по фразе "заполните случайными числами диапозоне от 1 до 5 два массива: массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4 Если таких совпадений нет то выведите на экран сообщение об этом."

Question

Информатика

Борюня

30 августа, 02:33

Поиск результатов по фразе "заполните случайными числами диапозоне от 1 до 5 два массива: массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4 Если таких совпадений нет то выведите на экран сообщение об этом."

+4

Ответы (1)

Знаешь ответ?

Альбин · Answer 1

Program gt;

var a, b:array[1 ... 5]of integer;

i:integer;

begin

for i:=1 to 5 do

a[i]:=random (100) - 50;

for i:=1 to 5 do

b[i]:=random (100) - 50;

for i:=1 to 5 do

begin

if (a[i]=b[i]) then writeln (i,' ', a[i]);

end;

end.