Напечатать общие четные элементы двух множеств и количество таких элементов - Pascal ABC
Формулировка задачи:
5. Пусть заданы множество А и множество В целых чисел, напечатать общие четные элементы этих множеств и количество таких элементов.
Решение задачи: «Напечатать общие четные элементы двух множеств и количество таких элементов»
textual
Листинг программы
program a1; var a: array[1..15] of integer; b: array[1..15] of integer; k,j,i:integer; begin randomize; k:=0; for i:=1 to 15 do begin a[i]:=random(100); write(a[i]:3); end; writeln; for j:=1 to 15 do begin b[j]:=random(100) ; write(b[j]:3); end; writeln; for i :=1 to 10 do if (i mod 2 =0) and (a[i]=b[j]) and (i=j) then begin k:=k+1; writeln('a[',i,']=b[',j,']=',a[i]); end else continue; writeln('количество повторяющихся:',k); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC. Он содержит два массива a и b, которые содержат числа от 0 до 99. Код генерирует случайные числа для этих массивов и выводит их на экран. Затем следует цикл, который проверяет каждый элемент массивов a и b на четность. Если элемент четный и совпадает в обоих массивах, то увеличивается счетчик k. Если условие выполняется, то выводится сообщение с номером элемента и его значением. После этого выводится количество повторяющихся элементов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д