Заполнить массив 5 на 5 нулями выше диагонали, ниже главной диагонали единицами, диагональ звездочками

Question

Информатика

Серж

17 декабря, 13:39

Заполнить массив 5 на 5 нулями выше диагонали, ниже главной диагонали единицами, диагональ звездочками

+1

Ответы (1)

Знаете ответ на вопрос?

Каринка · Answer 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.