Вопрос по информатике:
Заполнить массив 5 на 5 нулями выше диагонали, ниже главной диагонали единицами, диагональ звездочками
Пожаловаться
- 04.01.2017 02:27
- Информатика
- remove_red_eye 18365
- thumb_up 33
Ответы и объяснения 1
Const
N = 5;
Var
A:array[1..N,1..N] of Char;
i,j:integer;
Begin
WriteLn('Требуемый массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
if j=i then A[i,j]:='*';
if j>i then A[i,j]:='0';
if j Write(A[i,j])
End;
WriteLn;
End
End.
N = 5;
Var
A:array[1..N,1..N] of Char;
i,j:integer;
Begin
WriteLn('Требуемый массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
if j=i then A[i,j]:='*';
if j>i then A[i,j]:='0';
if j Write(A[i,j])
End;
WriteLn;
End
End.
Пожаловаться
- 05.01.2017 13:33
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы