заполнить квадратную матрицу из знаков размером 10 на 10 элементов таким

Заполнить квадратную матрицу из знаков размером 10 на 10 элементов таким образом,чтоб выше основной диагонали располагались символы x ,на основной диагонали-знаки y а ниже основной диагонали- символы z . Вывести заполненную матрицу на экран.
программа должна вывести на экран-
yxxxxxxxxx
zyxxxxxxxx
zzyxxxxxxx
zzzyxxxxxx
zzzzyxxxxx
zzzzzyxxxx
zzzzzzyxxx
zzzzzzzyxx
zzzzzzzzyx
zzzzzzzzzy

Задать свой вопрос
1 ответ
Var a:array[1..10,1..10] of char ;
i,j:integer;
Begin
For i:= 1 to 10 do
begin
for j:=1 to 10 do
begin
if ilt;j then a[i,j]:='x' else
if i=j then a[i,j]:= 'y' else a[i,j]:='z';
Write(a[i,j]:2);
end;
WriteLn();
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт