Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yrarissikhin
22.07.2020 17:59 •
Информатика
Язык паскаль . вводится одномерный массив a. построить квадратный массив m , где m i j = a i + a j .
Показать ответ
Ответ:
kristinakissa1
21.08.2020 12:50
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadArrInteger(ReadInteger('n->'));
var m:=MatrGen(a.Length,a.Length,(i,j)->a[i]+a[j]); m.Println;
end.
Пример:
n-> 4
4 8 6 2
8 12 10 6
12 16 14 10
10 14 12 8
6 10 8 4
0,0
(0 оценок)
Популярные вопросы: Информатика
MrMut222
23.08.2020 16:24
Для того, щоб посилання було абсолютним, потрібно перед номером стовпця та перед номером рядка ввести символ ... 1.$ 2.% 3.#[email protected]...
Lyudakostina1
23.03.2022 10:02
Напишите программу, вычисляющую значение функции у, если х 0, то у=10, если х 0, то у=-10...
milanakpoplove
17.12.2022 06:13
Текст, набранный на компьютере, содержит 4 страницы, на каждой странице 32 строки, в каждой строке 64 символа. Определите информационный объем текста в кодировке...
mruzer1999
20.11.2020 12:50
Приветствую, нужна программа для цветной картинки на freepascal...
Murzilka89
24.03.2022 06:33
Прізвище учасника Ім я учасника Бал Місце Бурчак Сергій 100 Петренко Катерина 45 Левчук Олексій 65 Стеценко Іван 90 Калина Юлія 85 Штейн Ілля 70 Левчук Олексій...
Anna2271
23.09.2020 12:28
В презентацию, состоящую из 13 слайдов, добавлен звук.Определи настройки для данного звука.Значок звука скрыт при показе слайдов данетЗвук будет воспроизводиться...
aisasiada
17.05.2021 22:35
Информатика 10 классКакие из утверждений верны? *1. Имена полей в одной записи не должны совпадать.2. В качестве поля записи может быть указана файловая переменная.3.Поле...
TaiGaaara
16.05.2022 19:58
Матрицы. Вывести матрицу 7 на 7, заполненную случайными числами. Определить сумму элементов данной матрицы.Сделать задание на паскале оч нужно это задание ...
vegeg
06.07.2022 04:32
Статья, набранная на компьютере в кодировке Unicode, в которой каждый символ кодируется 16 битами, содержит 96 страниц, на каждой странице 14 строки, в каждой строке...
Евгения65545
27.01.2021 09:39
У исполнителя Омега две команды, которым присвоены номера: 1. прибавь 2; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Омега...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadArrInteger(ReadInteger('n->'));
var m:=MatrGen(a.Length,a.Length,(i,j)->a[i]+a[j]); m.Println;
end.
Пример:
n-> 4
4 8 6 2
8 12 10 6
12 16 14 10
10 14 12 8
6 10 8 4