Создать массив по правилу

@Софья_ · Регистрация: 07.03.2014

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

Создать массив:
Дана квадратная матрица
Создать ее следующим образом:
при n(к примеру)=5;
n-вводится с клавиатуры.
1 2 3 4 5
2 1 2 3 4
3 2 1 2 3
4 3 2 1 2
5 4 3 2 1
Для сестры прошу, она в 8 классе.

это я

@aex · 07.03.2014, 21:20

ну вроде как то так

Pascal

var a:array [1..100,1..100] of integer;
i,j,n,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
k1:=1;
k2:=i;
if (j>=i) then 
begin
a[i,j]:=k1
k:=k+1;
end;
else 
begin
a[i,j]:=k2;
k2:=k2-1;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln();
end;
end.

@Puporev · 08.03.2014, 08:30

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=abs(i-j)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

Добавлено через 1 минуту

Сообщение от aex

ну вроде как то так

Хоть бы проверяли свой код перед публикацией

@Софья_ · 08.03.2014, 12:41 **[ТС]**

Спасибо!!!

@Romalei · 08.03.2014, 13:25

Заполнение двумерного массива была такая тема уже

@Софья_ 0 / 0 / 0 Регистрация: 07.03.2014 Сообщений: 2
		1
	Создать массив по правилу 07.03.2014, 20:04. Показов 1054. Ответов 4 Метки нет (Все метки) Создать массив: Дана квадратная матрица Создать ее следующим образом: при n(к примеру)=5; n-вводится с клавиатуры. 1 2 3 4 5 2 1 2 3 4 3 2 1 2 3 4 3 2 1 2 5 4 3 2 1 Для сестры прошу, она в 8 классе. это я 0

@Софья_ 0 / 0 / 0 Регистрация: 07.03.2014 Сообщений: 2
	08.03.2014, 12:41 [ТС]	4
	Спасибо!!! 0

@Romalei 109 / 50 / 55 Регистрация: 17.09.2013 Сообщений: 298
	08.03.2014, 13:25	5
	Заполнение двумерного массива была такая тема уже 0

Создать массив по правилу

Решение