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

Информатика 9 класс Семакин ФГОС

§ 19 Одна задача обработки массива ГДЗ по Информатике 9 класс. Семакин


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

Ответ

const n = 20;

var

  a, b: array[1..n] of integer;

  i, count: integer;

begin

  for i := 1 to n do begin

    a[i] := 1 + random(5);

    b[i] := 1 + random(5);

    if(a[i] = b[i]) then begin

      writeln(‘Номер: ‘, i, ‘ Значение: ‘, a[i]);

      inc(count);

    end;

  end;

  if(count = 0) then writeln(‘Совпадений нет’);

end.


Понравилась статья? Поделиться с друзьями: