Заполнить матрицу [10][10] по образцу

@Best-pm07 · Регистрация: 19.03.2009

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

Помогите, получить матрицу 10x10, по этому образцу

Вот образец:
.1....2...3......7....8....9....10
11..12..13....17..18..19....20
21..22..24....27..28..29....30
......................................
......................................
71..72..76....77..78..79....80
81..82..83....87..88..89....90
91..92..93....97..98..99..100

Pascal

uses crt;
var a:array[1..10,1..10] of byte;
 i,j:byte;
 const n=10;
begin
clrscr;
writeln('Матрица по образцу:');
for i:=1 to n do
begin
for j:=1 to n do
begin
 
{незнаю, как дальше}
 
write(a[i,j]:2,' ');
end;
writeln;
end;
readln
end.

@EnzoMatrix · 11.06.2009, 19:25

Pascal

1	a[i,j]:=10*(i-1)+j;

@Delphin_KKC · 11.06.2009, 19:26

В 13й строке:
a[i,j]:=n*(i-1)+j;

@Best-pm07 · 11.06.2009, 19:33 **[ТС]**

Спасибо, всем)

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	11.06.2009, 19:26	3
	В 13й строке: a[i,j]:=n*(i-1)+j; 1

@Best-pm07 ..:::BesT:::.. 8 / 8 / 5 Регистрация: 19.03.2009 Сообщений: 195
	11.06.2009, 19:33 [ТС]	4
	Спасибо, всем) 0