Нет, я не о выводе на экран, вложенные циклы, я тоже знаю, задача в том, чтобы заполнить массивы неизвестной заранее длины, количество этих массивов, которое мы тоже не знаем. Поэтому вначале мы вводим количество массивов для заполнения, а потом начинаем их заполнять, длина этих масивов различна и также неизветстна...
Например вводим с консоли кол-во масивов 3
Далее цикл от 1 до 3
начинаем заполнять элементами первый массив
2;3;5;1 и т.д.
Вводим конец заполнения первого массива и приступаем заполнять второй массив и т.д.
получаем на выходе общий массив данных, где первый столбец это номер массива, а второй элемент массива..
Вот сделал примерно, но почему то выходит ошибка exitcode 201, видать надо как-то описать двумерный массив переменной длины...
- Код: Выделить всё
Program primer;
var N,m,e,i,k:integer;
mass_elm : array of array of integer;
begin
writeln('Введите количество массивов');
read(N);
for i:=0 to N-1 do // нумерация начинается с 0
begin
writeln('Введите количество элементов ', i+1, ' массива');
read(m);
SetLength(mass_elm[i], m );
writeln('Введите элементы', i+1, ' массива');
for k:=0 to m-1 do
begin
read(e);
mass_elm[i,k]:=e;
end;
end;
for i:=0 to N-1 do
begin
writeln('массив', i+1);
for k:=0 to m-1 do
begin
writeln('mass_elm[',i+1,',',k+1,'] = ',mass_elm[i,k]);
end;
end;
readln;
readln;
end.
Не нашел спулер, чтоб код туда запрятать...
PS: может знает кто ссылку на русский хелп FPC, а то что-то контексная помощь не работает у меня...
