Заполнить двумерный массив по правилу

@Yorich · Регистрация: 23.10.2014

Author24 — интернет-сервис помощи студентам

Заполнить двумерный массив:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}4& 8 &12 &16\\3& 7& 11& 15\\2 &6 &10 &14\\1& 5& 9 &13\\\end{pmatrix}$

@Puporev · 24.10.2014, 12:55

Pascal

const nmax=20;
var a:array[,] of integer;
    n,m,i,j:integer;
begin
repeat
write('Количество строк  до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов  до ',nmax,' m=');
readln(m);
until m in [1..nmax];
setlength(a,n,m);
for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
   begin
    a[i,j]:=n*j+n-i;   
    write(a[i,j]:3);
   end; 
  writeln
 end; 
end.

@Yorich 0 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 7
		1
	Заполнить двумерный массив по правилу 23.10.2014, 23:50. Показов 1104. Ответов 1 Метки нет (Все метки) Заполнить двумерный массив: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}4& 8 &12 &16\\3& 7& 11& 15\\2 &6 &10 &14\\1& 5& 9 &13\\\end{pmatrix}$ 0

	24.10.2014, 12:55

Заполнить двумерный массив по правилу

Решение