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

Question

Информатика

Дарьюшка

1 декабря, 19:33

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

+2

Ответы (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.