Меню сайта

Задача №65

Образоватьтретий массив из элементов встречающихся в обоих массивах.

uses crt-

varm,k,i,l,c:integer-

a:array[1..10000]of integer-

b:array[1..10000]of integer-

ab:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива a(m)’)-

readln(m)-

writeln(‘Введите размер массива b(k)’)-

readln(k)-

clrscr-

writeln(‘Введите элементы массива a(m)’)-

FOR i := 1 TO m do

begin

readln(a[i])-

end-

writeln(‘Введите элементы массива b(k)’)-

FOR i := 1 TO m do

begin

readln(b[i])-

end-

FOR i := 1 TO m do

begin

FOR l := 1 TO k do

begin

-IF a[i] = b[l] THEN

-begin

-c := c + 1- ab[c] := a[l]-

-end-

end-

end-

clrscr-

writeln(‘Массив образованный из одинаковыхэлементов’)-

FOR i := 1 TO c do

begin

writeln (ab[i])-

end-

end.

Категория: Массивы | Дата: 06.12.12

Меню раздела
Блок