Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
oksiur4enko
03.12.2021 14:46 •
Информатика
Заполнить произвольный массив размером nxn (n< 10) по следующему правилу: 10000 02000 00300 00020 00001 буду : )
Показать ответ
Ответ:
Caxap03
01.10.2020 11:53
Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lisablida
04.09.2021 21:39
Найдите сумму 111011+11001 получить машинное представление чисел 91, -126...
zoobe1
13.05.2021 01:55
Сделайте хотябы 2 номера...
yulenkaradosti
30.03.2020 23:32
Практическая работа по Информатике...
sokolovsokol3андрей
06.09.2021 02:12
Определите что будет напечатано в результате выполнения программы....
Zadornov200215
26.06.2020 10:14
Кто в ряду является лишним и почему? Генрих VIII, Карл I, Яков I, Карл V...
radmirnemyshov
25.03.2022 18:15
Укажите словосочетание с главным словом - глаголом. а) пришла зима; б) открыть настежь; в) освобождение из плена; г) положительного результата....
кек946
26.09.2020 21:02
Дано угол 1 = углу 2, угол 3 = угол 4. Доказать что треугольник ACD = треугольник ABC...
caca2386p00xcz
12.07.2021 01:46
Визначити яким утворені. сторонній, яка-небудь, нічого собі, один, останній, було нудно, нудно, важко, коло, просто, коли і де, як, зирк....
кетблек
20.03.2022 06:10
Можете сделать 5,6 и Уровень 2,3,4, нужно очень...
1NICOLAS1
20.03.2022 06:10
Через две образующие конуса проведено перерез, что пересекает основу по хорде, что стягивает дугу 120 градусов; кут между плоскостью перереза и плоскостью основи...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
end.