Дано число n и массив размером nn. Заполните его так, чтоб

Дано число n и массив размером nn. Заполните его так, чтоб на основной диагонали стояли единицы, выше основной диагонали стояли нули, а ниже двойки

Задать свой вопрос
Ljudmila Milodorina
И я сделаю
Iljusha Chiskalenko
Избери какой горизонт будет основным и я сделаб
Лариса
верхний
Серега Палев
верхний не льзя
Kira Taranushhenko
короче сделаю по центральному
Кирюха Горнак
спасибо
Петрановский Тимур
vjoyj
Злата Юрина
сильно
Павел Дурников
Работает ?
Геннадий Лылин
да
1 ответ
Var 
a:array[1..100,1..100] of longint; 
n,m,i,j:longint;
begin 
readln(n); 
for i:=1 to n do for j:=1 to n do 
begin 
 if not odd(n) and((i=n div 2)or(i=(n div 2)+1)) then a[i,j]:=1 else 
if odd(n) and( i=(n div 2)+1)  then a[i,j]:=1 else 
if ilt;n div 2 then a[i,j]:=0 else 
if igt;n div 2 then a[i,j]:=2; 
end; 
for i:=1 to n do 
begin 
 for j:=1 to n do write(a[i,j]);
  writeln; 
end;
end.






, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт