Заполните случайными числами в диапазоне от 1 до 5 два массива: А [1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А [2] = В [2] = 4, то на экран надо вывести:
Номер: 2 значение: 4
Если таких совпадений нет, то выведите на экран сообщение об этом.
с паскалем я не дружу а вот с пчп запросто!!!
для занесения произвольного числа - random и rnd
в цикле сравниваете два значения и выводите на экран.. . а еще создаете булевое значение до цикла и присваивает ложью, а в цикле если выводите - присваиваете истину.. . и в конце если это значение - ложь - тогда вывести что нету совпадений
f:=true;
for i:=1 to 20 do begin
a[ i ]:=random(5) + 1;
b[ i ]:=random(5) + 1;
f:=false;
if a [ i ] = b [ i ] then writeln( ' Номер: ',i, ' значение: ',a [ i ]) end;
if f then writeln(' нет таких ');
uses crt;
const n=20;
var b,a:array[1..n] of integer;
x,k:integer;
begin
clrscr;
//заполнение
for x:=1 to n do begin
a [x] := random(5)+1;
b [x] := random(5)+1;
end;
// вывод
for x:=1 to n do write(' ', a[x]:2 );
writeln;
for x:=1 to n do write(' ', b[x]:2 );
writeln;
k:=0;
for x:=1 to n do
if a [ x ] = b [ x ] then begin writeln( ' Номер: ',x, ' Значение: ',a [ x ]);inc(k); end;
if k=0 then writeln(' Нет совпавших элементов ');
end.
⇢