Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]

Нашли ошибку? Напишите нам
0.0/5, Голосов: 0

Учебник по Информатике 9 класс Семакин

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

program zad_5_nica;
var A: array[1..20] of integer;
   B: array[1..20] of integer;
   i, sovp: integer;
begin
randomize;
{Заполнение массива случайными числами и вывод их на экран}
for i:=1 to 20 do begin
   A[i]:=1+random(5);
   B[i]:=1+random(5);
end;
{Поиск и вывод совпадающих элементов этих массивов}
sovp:=0;
for i:=1 to 20 do begin
if A[i]=B[i] then begin
   writeln ('Номер: ', i, ' Значение: ', A[i]);
   sovp:=1;
   end;
end;
{Вывод сообщения, если совпадений не нашлось}
if sovp=0 then writeln ('Увы, совпадений нет:(')
end.