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

11.01.2013, 12:02. **Показов** 1020. **Ответов** 2

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

как описать правило?
1 2 3 4 5
5 1 2 3 4
4 5 1 2 3
3 4 5 1 2
2 3 4 5 1

@Zhexon · 11.01.2013, 14:23

Pascal

var
  a : array [1..5,1..5] of byte;
  i,j : byte;
begin
  for i:=1 to 5 do begin
    for j:=1 to 5 do begin
      if i<=j then a[i,j]:=j-i+1
             else a[i,j]:=6+j-i;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  readln;
End.

Новичок · 11.01.2013, 14:49

Pascal

program lab;
uses Crt;
const n=5;
var a:array[1..n,1..n] of Integer;
i,j:Integer;
begin
ClrScr;
for j:=1 to n do a[1,j]:=j;
for i:=2 to n do 
for j:=1 to n do 
if j=1 then a[i,j]:=a[i-1,n] else
a[i,j]:=a[i-1,j-1];
for i:=1 to n do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.

keefir
		1
	Сформировать массив по правилу 11.01.2013, 12:02. Показов 1020. Ответов 2 Метки нет (Все метки) как описать правило? 1 2 3 4 5 5 1 2 3 4 4 5 1 2 3 3 4 5 1 2 2 3 4 5 1

	11.01.2013, 14:49

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

Решение