Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты! Не могли бы Вы мне помочь написать код для оконного приложения: Дано : var A: array[1..10,1..10] of Integer;
Заполнить массив A следующим образом:

|1 2 3 .... 10|
|0 1 2 ..... 9|
А=|0 0 1 ...... 8|
| ........... |
|0 0 0 .......1|

Спасибо за помощь!) Огромное спасибо)))

Вопрос задал: Zybaskin (статус: Заблокирован) Вопрос отправлен: 5 января 2010, 17:35 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Паровоз

Здравствуйте, Zybaskin!

var
  i,j:Integer;
begin
  for i:=1 to 10 do
    for j:=1 to 10 do
    begin
      if j<i then a[i,j]:=0
      else a[i,j]:=j-i+1;
    end;
end;

Ответ отправил: Паровоз (статус: 10-ый класс) Время отправки: 5 января 2010, 19:37 Оценка за ответ: 5

Мини-форум вопроса

5 января 2010, 18:04: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Лабораторный практикум » Delphi модератором Ерёмин А.А.

Жикльор (статус: 5-ый класс), 6 января 2010, 00:03 [#1]: Смотри этот вопрос!!! Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.