Спасибо Всем кто отписался.
В том задании множества можно представлять как упорядоченные массивы [1,2,3..n];
------------------
пишу для себя, чтобы лучше программировать.
ЗАДАНИЕ: создать функцию, которая будет заполнять нужный мне массив (одномерныы массивы определенного размера). Т.е. чтобы каждый раз, при заполненнии 2 и более одинаковых массивов, не писать стандартно:
for i:=1 to n do
readln(a[i]);
а использовать отдельную для этого функцию
(если можно через процедуру подскажите).
ВОТ МОЙ КОД:
uses crt;
const n=5;
var a,b,x: array [1..n] of integer; // a,b, - наши массивы, x - массивы для функции, через него заполняю нужные мне массивы.
var i,j, y: integer;
function fill_mas (x: array of integer):integer; // функция заполнения массива x);
begin
for i:=1 to 5 do
begin
readln(x[i]);
end;
fill_mas:=x[n];
end;
begin
clrscr;
a[n]:=fill_mas(x[n]); // заполняем нужный нам массив a через вызов функции.
for i:=1 to n do
begin
writeln('Element ',i,' : ', a[i]); // выводим полученный массив на экран.
end;
readkey; // ждем нажатия клавишы для закрытия.
end.
!!!но появляется,
!!!ОШИБКА 202 - ПЕРЕПОЛНЕНИЕ СТЕКА.
Поясните как исправить код так чтобы все работало.[HTML]
P.S: это Паскаль 7.0