Работа с 2мя массивами

[[Danil]]

Пожалуйста кому не тяжело решите...

Из 2х массивов произвольных 2-3 разрядных чисел строить множества, состоящие из элементов массива. Распечатать множество, определяющее разницу 2х множеств, и множество произведений полученных множеств.


вообще не въеду как решать! помогите плиз!

[Ol'ga_new]

Если правильно поняла задание,то можно сделать так:

var a,b,r,p:array[1..25]of ingeter;
     i,n:integer;
begin
readln(n);
if n<=25 then
begin
for i:=1 to n do 
 begin  
   a[i]:=random(999);
   b[i]:=random(999);
 end;
for i:=1 to n do
begin 
  r[i]:=a[i]-b[i];
  p[i]:=a[i]*b[i];
end;
for i:=1 to n do
 write(r[i], '  ');
for i:=1 to n do
 write(p[i],'  ');
end;
end.

[DoDge_VipeR]

разность 2 множеств по-моему это те элементы,которые есть в 1 множестве и которых нету во 2 -ом или я ошибаюсь?

[[Danil]]

я не знаю...
я вообще не пойму что нужно!!!
ща я попробую тот вариант Ольги (спасибо) и отпишу...

[[Danil]]

короче там нужно было во-первых поменять integer на real!
я поменял высвечивается просто курсор я ввожу число и всё сразу пишет что программа типа завершена! =(

[DoDge_VipeR]

короче там нужно

у кого короче тот сидит дома и отращивает это во первых а во вторых
перед end. поставьте

 readln;

[ROMA2PVT]

у кого короче тот сидит дома и отращивает это во первых а во вторых

<<offtop>>
блин а я тож так частенько говорю.

[[Danil]]

DoDge_VipeR
блин ну я так к слову)))
чё придираться?...

[[Danil]]

а за подсказку спасибо ща попробую!

[[Danil]]

program pc;

var a,b,r,p:array[1..25]of real;
i,n:integer;
begin
readln(n);
if n<=25 then
begin
for i:=1 to n do
begin
a[i]:=random(999);
b[i]:=random(999);
end;
for i:=1 to n do
begin
r[i]:=a[i]-b[i];
p[i]:=a[i]*b[i];
end;
for i:=1 to n do
write(r[i], ' ');
for i:=1 to n do
write(p[i],' ');
end;
end.

может я что-то не понимаю, но я не уверен что она как нужно работает! =(
помогите пожалуйста!