Developing.ru

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.

Задача на Pascal

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

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

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

Anton_XXX писал(а):Первый массив, размерностью 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.