|
Вопрос # 3 598/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!Помогите пожалуйста написать программный код к задаче:
Дано : 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|
Буду очень признателен за решение!Заранее спасибо!)
 |
Вопрос задал: verlite (статус: Посетитель)
Вопрос отправлен: 28 декабря 2009, 23:12
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Жикльор
Здравствуйте, verlite!
Извините что я его сделал в консольном приложении, но я подумал что именно в консольном вам нужно это сделать. Код в приложении:
Приложение: Переключить в обычный режим- program Project2;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- var
- A: array [1..10,1..10] of integer;
- i,j,last: integer;
- begin
- for i:=0 to 9 do
- for last:=10 downto 1 do
- if last - i < 0 then A[i+1,last]:=0 else
- A[i+1,last]:=last-i;
- for i:=1 to 10 do
- begin
- for j:=1 to 10 do
- write(A[i,j],' ');
- writeln;
- end;
- readln;
- end.
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 29 декабря 2009, 00:04
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 29 декабря 2009, 07:48; участников в обсуждении: 1.
|
|
verlite (статус: Посетитель), 29 декабря 2009, 07:48 [#1]:
Спасибо))!А в оконное не так сложно превести))
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
