Заполните случайными числами в диапазоне от 1 до 10 два массива: А[1:10] и B[1:10]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[2] = 6, то на экран надо вывести:
Номер: 2 значение: 6
Если таких совпадений нет, то вывести на экран сообщение об этом.
В отчет включить тексты программ, реакции ЭВМ.
Ответы
Ответ дал:
0
Ответ:
program proba1;
var a,b:array [1..10] of integer;
i,k:integer;
begin
write('Массив А: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write (a[i]:2)
end;
writeln;
write('Массив В: ');
for i:=1 to 10 do
begin
b[i]:=random(10);
write (b[i]:2)
end;
writeln;
k:=0;
for i:=1 to 10 do
if a[i]=b[i] then
begin
writeln('Номер: ',i,' значение: ',a[i]);
k:=k+1
end;
if k = 0 then write ('Совпадений нет')
end.
Объяснение:
Смотри картинки
Приложения:
![](https://st.uroker.com/files/a79/a79836f5ae61e8d51fdd142b1eea7fe9.jpg)
![](https://st.uroker.com/files/d82/d8298e86663fc98d463d0ebc4ccb5c24.jpg)
![](https://st.uroker.com/files/af3/af30ee86722cd0439c402a88bd326aad.jpg)
![](https://st.uroker.com/files/5e7/5e775f881cd1f6424124117b0653c89f.jpg)
Ответ дал:
0
Спасибо большое
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад