Получить квадратную матрицу по правилу

@Bomboos · Регистрация: 04.10.2009

Здравствуйте друзья, помогите получить квадратную матрицу порядка N:

@MicM · 27.06.2013, 19:11

Pascal

var
  a:array [1..50,1..50] of integer;
  i,j,n:integer;
begin
  write ('Введите порядок матрицы: ');
  readln(n);
  for i:=1 to n do begin
   for j:=1 to n do begin
    a[i,j]:=(i-1)*n+j;
    write (a[i,j]:4);
   end;
   writeln;
  end;
end.

@Bomboos · 27.06.2013, 19:13 **[ТС]**

Дружище, спасибо огромное)

@Bomboos 15 / 15 / 3 Регистрация: 04.10.2009 Сообщений: 219
		1
	Получить квадратную матрицу по правилу 27.06.2013, 18:53. Показов 1102. Ответов 2 Метки нет (Все метки) Здравствуйте друзья, помогите получить квадратную матрицу порядка N: Изображения 0

@Bomboos 15 / 15 / 3 Регистрация: 04.10.2009 Сообщений: 219
	27.06.2013, 19:13 [ТС]	3
	Дружище, спасибо огромное) 0

Опции темы

Получить квадратную матрицу по правилу

Решение