Заполнить квадратную матрицу из символов размером - вопрос №90198831010 от cwqfqeggqeg 19.05.2023 19:46

Question

Информатика: Заполнить квадратную матрицу из символов размером 10 на 10 элементов таким образом,чтобы выше главной диагонали располагались символы x ,на главной диагонали-символы y а ниже главной диагонали- символы z . вывести заполненную матрицу на экран. программа должна вывести на экран- y zy zzy zzzy y y yxxx yxx yx y

cwqfqeggqeg · Answer

Var a:array[1..10,1..10] of char ;i,j:integer;Begin For i:= 1 to 10 dobegin for j:=1 to 10 dobeginif i 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....