просветите меня пожалуйста!
Что нужно изменить в данном документе, чтобы после запуска программы высвечивало:
Dano
Massiv: ......
Resultat: ..... ?
Что надо добавить в эту программу? Подскажите плиз.
Данная программа:
const N=6;
var
k,i,j:integer;
a,b: array [0..N-1] of integer;
c:array [0..2*N-1] of integer; //максимальный набор
begin
writeln('elementi A');
for i:=0 to N-1 do
readln(a[i]);
writeln('elementi B');
for i:=0 to N-1 do
readln(b[i]);
k:=0;
for i:=0 to N-1 do
for j:=0 to N-1 do
if a[i]=b[j] then begin c[k]:=a[i];
inc(k);
end;
for i:=0 to k-1 do
writeln(c[i]);
readln;
end.
Anti, скажи честно, ты издеваешься ?
! | Цитата(ПРАВИЛА ФОРУМА) 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [ code=pas ] ... [ /code ]. |