Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ПЕДРО12
12.05.2022 02:43 •
Информатика
Заполнить произвольный массив размером nxn (n< 10) по следующему правилу: 10000 02000 00300 00020 00001 буду : )
Показать ответ
Ответ:
shukur3
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 оценок)
Популярные вопросы: Информатика
FenteziV
29.01.2020 16:25
Вариант 1 1. поименованная информация, хранящаяся в долговременной памяти компьютера: 1) файл 2) папка 3) программа 4) каталог 2. расширение файла указывает: 1)...
BlackStile
16.04.2020 03:14
1. Як створити поле для введення у формах змінного тексту? 2. Які ще елементи керування найчастіше використовуються у формах? 3. Як дозволити редагування документа...
рф777
21.01.2023 19:10
Как изменится число, записанное в шестнадцатеричной системе, при переносе запятой, отделяющей целую часть от дробной, на одну позицию влево?...
Daniil3037
24.05.2023 13:28
Найти меньшую высоту равнобедренного прямоугольного треугольника со стороной 10 см...
ekaterina791
24.05.2023 13:28
Всентябре 1кг слив стоил 80руб,в октябре сливы подрожали на 30% а в ноябре ещё на 25% сколько рублей стоил 1кг слив после подорожания в ноябре...
lime89cc
24.05.2023 13:28
Определите время серебрения детали в силе тока в 10 а если выделилось 6,72 г вещества...
raz1508
24.05.2023 13:28
Растительное масло объемом 0,002м^3 имеет массу 1,840кг.определите плотность масла. ответы: 1)3680кг/м^3. 2)920кг/м^3 3)0,92кг/м^3 4)3,68кг/м^3...
Belay28
24.05.2023 13:28
Функциональная группа - он характерна для...
marinamarina24
24.05.2023 13:28
Принца гревиннии гидрооксида меди 2 образуется? 1) cu и h2o 2) cuo и h2 3)cuo и h2o 4) co2o и h2o...
mbelilovskaa
24.05.2023 13:28
Смесь порошков алюминия и железа реагирует с 806 мл 10%- ного раствора серной кистлоты (р=2,07г/мл). при взаимодействии такой же массы смеси с избытком раствора...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.