Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lyubalarina04
07.12.2022 10:47 •
Информатика
Заполнить произвольный массив размером nxn (n< 10) по следующему правилу: 10000 02000 00300 00020 00001 буду : )
Показать ответ
Ответ:
mytaevafati
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 оценок)
Популярные вопросы: Информатика
Azalia1324
04.12.2022 19:39
Что я понимаю под кибернетикой? 5 предложений...
Samvel7777
17.05.2020 20:53
Придумайте свою айти идея....
polibfbxbdbdbcb
31.01.2021 17:26
Знание и понимание 1. Какие правила техники безопасности в компьютерном классе вы помните из 5 класса? 2. Что изучает наука эргономика? 3. Какие требования эргономики...
Имра11111
02.05.2020 22:16
Двоичный код использует только два знака - О и 1. Сколько сообщений длиной 6 символов можно записать с двоичного кода?...
gahakadbobo22
01.01.2021 12:34
Программное обеспечение Sketchup предназначен для???...
aidosashimbek200
25.12.2020 21:42
визуальная mercmahal cuyreoke Вид информации Носители Пример по форме по форме восприятия представления Задача по алгебре ( (miem pago) Письмо Би алом Солацам их Графа...
NoMatterWho2001
04.01.2021 06:05
Дан алгоритм: Начало алгоритма. Задать численное значение стороны a. Вычислить периметр Р квадрата по формуле Р = 4*a. Вывести результат вычислений. Конец алгоритма....
Топовыйшкольник
17.07.2021 15:43
Какой самый короткий маршрут передачи информации: а) Шина б) Кольцо в) Звезда...
MSТигруля
29.05.2022 01:25
2. Відомі величини переведіть в поки невідомі. Тобто 614 400 бітів переведіть в бідійти, далі байти в кілобайти, кілобайти в мегабайти і так всі відомі величини. Бітів...
kristinakissa1
03.03.2023 10:52
Кроссворд на тему облако.ps облачные технологии...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.