Напечатать общие четные элементы двух множеств и количество таких элементов - Pascal ABC

Формулировка задачи:

5. Пусть заданы множество А и множество В целых чисел, напечатать общие четные элементы этих множеств и количество таких элементов.


textual

Код к задаче: «Напечатать общие четные элементы двух множеств и количество таких элементов - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5

Источник
Похожие ответы