Вопрос школьника по предмету Информатика
ПОЖАЛУЙСТА ПОМОГИТЕ НА ПАСКАЛЕ СОСТАВИТЬ ПРОГРАММУ
Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести:
Номер: 2 значение: 4
Если совпадений нет, то вывести сообщение об этом.
Ответ учителя по предмету Информатика
const n=20;
var a,b:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln(‘Массив A:’);
for i:=1 to n do
begin
a[i]:=random(5)+1;
write(a[i]:3);
end;
writeln;
writeln(‘Массив B:’);
for i:=1 to n do
begin
b[i]:=random(5)+1;
write(b[i]:3);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]=b[i] then
begin
writeln(‘Номер ‘,i,’ значение ‘,a[i]);
k:=k+1;
end;
if k=0 then writeln(‘Совпадающих значений нет’);
end.
Пример:
Массив A:
4 3 5 3 3 4 1 2 1 4 2 1 3 1 3 1 1 5 5 5
Массив B:
1 4 2 4 1 1 1 3 1 2 3 2 1 1 5 4 4 1 3 2
Номер 7 значение 1
Номер 9 значение 1
Номер 14 значение 1
Похожие вопросы от пользователей
Предложения:
1.Someone has cleaned the room.
2. Someone has writen on ahonymous letter.
3.Someone has stolen my mony.
4.Someone has watered the plants.
5.Someone has peeled the oranges.
6.They have not mended the toy yet.
7.They have not fixed the computer yet.
8. They have accused the man of stealing the can.
9.They have not faxed her the details yet.
10. Hawe they posted the letters yet.
11.Has he scrubbed the fioor yet.
12. Has he fed the animals yet.
13.Hawe they seut you the bill yet.