Двумерные массивы.Заполнить массив размерностью 7х7 по правилу:

@upfly · Регистрация: 07.06.2012

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

0 0 0 ... 0 0 1
0 0 0 ... 0 2 0
0 0 0 ... 3 0 0
.. .. .. ... .. .. ..
0 n-1 0 ... 0 0 0
n 0 0 ... 0 0 0

@KaiTheCat · 08.06.2012, 02:34

Pascal

Const
    n = 7;
Var
    a: array[1..n,1..n] of byte;
    i,j: byte;
 
Begin
    For i:=1 to n do
        begin
            For j:=1 to n do a[i,j]:=0;
            a[i,n-i+1]:=i
        end;
    For i:=1 to n do
        begin
            For j:=1 to n do write(a[i,j]:3);
            Writeln
        end;
    Writeln
End.

@upfly Доброжелательный пушистик 92 / 55 / 35 Регистрация: 07.06.2012 Сообщений: 307
		1
	Двумерные массивы.Заполнить массив размерностью 7х7 по правилу: 08.06.2012, 00:45. Показов 1226. Ответов 1 Метки нет (Все метки) 0 0 0 ... 0 0 1 0 0 0 ... 0 2 0 0 0 0 ... 3 0 0 .. .. .. ... .. .. .. 0 n-1 0 ... 0 0 0 n 0 0 ... 0 0 0 0

	08.06.2012, 02:34

Двумерные массивы.Заполнить массив размерностью 7х7 по правилу:

Решение