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

Question

Информатика

Идуся

12 марта, 22:06

Поиск результатов по фразе "заполните случайными числами диапозоне от 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.