2D массив, заполнение

[minimo71]

Имеется массив 10х10, необходимо заполнить его так, как показано на картинке (извините за примитивность, сделал в Excel'e)


Хоть убей, никак не могу придумать как это сделать (идея конечно есть, но вот реализовать в PASCALe не получается).

Подскажите, пожалуйста!

Ах да.. код всей программы не обязателен, мне вполне хватит только этой "заполнялки".

[Utkin]

Двумя циклами можно . Сначала ступеньки вниз до 5-ки. Потом ступеньки вверх с 6-ки до десятки.
Впринципе и одним можно - это же зеркальное отражение. Рассматривай не как массив, а как два массива, просто пересчитывай индекс.

[minimo71]

да не дурак, сам понимаю что как-то так, вот только не могу придумать как это всё кодом написать..

[esculapweb]

можно вот так

Sub ступеньки()

Dim стартовая_строка As Integer, стартовый_столбец As Integer, i As Integer

Application.ScreenUpdating = False

стартовая_строка = 4
стартовый_столбец = 1

With ActiveWorkbook.ActiveSheet

    For i = 1 To 10
        If i < 6 Then
            .Cells(стартовая_строка + i - 1, стартовый_столбец + i - 1) = i
        Else
            .Cells(стартовая_строка + 10 - i, стартовый_столбец + i - 1) = i
        End If
    Next i

End With
End Sub

[minimo71]

Кое-какую идею уловил, но вот язык у вас совсем другой, мне Pascal нужен..

[esculapweb]

это на vba, но суть, я думаю, понятна

[esculapweb]

Pascal учил ток в школе, но кажись так:

start_x:=4;
start_y:=1;
for i:=1 to 10 do
begin
if i < 6 then
    Massiv(start_x+i-1, start_y+i-1):=i;
else
    Massiv(start_x+10-i, start_y+i-1):=i;
end;

[minimo71]

Огромное спасибо! Уже что-то похожее сам успел написать Ж)