ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ НА МАССИВЫ.

[Anton_XXX]

8. Напишите программу для заполнения трех двумерных массивов и последующего их вывода.
Первый массив, размерностью n х m, заполняется данными, вводимыми с клавиатуры, так, что заполнение ведется по столбцам от первых элементов столбца к последним.
Второй массив, размерностью n х n, заполняется трехзначными случайными числами, составленными из возрастающих цифр.
Третий массив, размерностью n х n, заполняется для произвольного n по такому же принципу, как для n=5.
25 16 15 6 5
24 17 14 7 4
23 18 13 8 3
22 19 12 9 2
21 20 11 10 1
В последнем случае необходимо:
1) описать словами построение массива для двух разных n;
2) написать программу;
3) привести трассировку для n=4.

[Anton_XXX]

Задача на Pascal

[Хыиуду]

Как вводить значения массива с клавиатуры - в соседних темах обсуждалось миллион раз.
Трехзначные случайные числа можно составить, например, по такой функции:

Код: Выделить всё

function getincr:word;
var i:byte; s:word
begin
  repeat
     i:=random(10);
     s:=100*i;
     i:=i+random(10);
     if i<10 then s:=s+10*i
         else continue;
     i:=i+random(10);
     if i<10 then 
       begin
           s:=s+i;
           break;
        end
      else continue;
  until false
  getincr:=s;
end;

Кстати, это мое двухсотое сообщение на форуме

[Anton_XXX]

Что то у меня не идет на Pascal, ошибки маленькие были, я их исправил...
Не идет...

[Хыиуду]

Сообщение "не идет" столь же информативно, как "у меня компьютер не работает". Если были маленькие ошибки, и они уже исправлены, что конкретно не идет? Выдаются ошибки? Получается неправильный результат? В чем проблема?

[beekeeper]

Первый массив, размерностью n х m, заполняется данными, вводимыми с клавиатуры, так, что заполнение ведется по столбцам от первых элементов столбца к последним.

program p1;
uses crt;
const
n=2;m=3;

var
a:array[1..n,1..m] of integer;
i,j:integer;

begin
clrscr;
writeln('zapolni massiv');
for j:=1 to m do
for i:=1 to n do read (a[i,j]);

for i:=1 to n do
begin
writeln;
for j:=1 to m do write (' ',(a[i,j]));
end;
writeln;
end.