Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
taisechka
26.08.2022 16:42 •
Информатика
Составьте программу для вывода в массиве c[1..4,1..3] сумм столбцов этого массива.
Показать ответ
Ответ:
ololshka2016
04.10.2020 18:02
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(4,3,-50,50); a.Println(5);
Writeln(5*a.ColCount*'-');
foreach var c in a.Cols do Write(c.Sum:5);
end.
Пример
44 30 -45
10 -9 -1
37 30 11
24 -16 -22
115 35 -57
0,0
(0 оценок)
Популярные вопросы: Информатика
АлександровнаСаша
18.06.2021 13:23
Давайте сделаем это в блокноте. Ссылки раздела групп и их функции Заполните сервисы на графике. Группа товаров: услуги:...
61551
31.12.2021 06:08
Нужно переделать на do-while...
ZinW
08.07.2021 17:26
Установите соответствие между записью цикла и утверждением. 1. While … do … 1. Тело цикла выполняется хотя бы один раз. 2. Тело цикла может не выполнится ни разу. 2. For …to...
долин1
09.05.2022 08:53
Составить синквейн к слову мультимедиа...
1326237416414
04.06.2020 06:25
А. Найдите ошибки и запишите значение переменной s, полученное в результате работы следующей программы. var s,k: integer; s := 0; for n := 4 to 7 do s := s + 8; writeln(s);...
София35686431
18.10.2022 04:52
Тестирование по теме Человек и информация 7 класс...
LalkaZEKA
21.10.2020 23:37
решить! а) Определить принадлежит ли точка M(x0,y0) графику функции y=2x2-4x+5 б) написать программу для решения неравенства ax+b 0...
Вика12342001
08.12.2022 00:51
Работа в Microsoft Excel Задача 1. Предприятие ООО «Весна» заключила договор №75 от 20.12.2018 года на поставку строительных материалов с организацией ООО «Искра», сроком...
Tigeriza
17.10.2021 12:43
(A+B)*(C+D) =1 Сколько различных решений имеет уравнение ?...
ЭминГаджиев
19.06.2021 22:24
Если в кодировочной таблице КОИ - 8 битами то сколько байт занимает этот символ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(4,3,-50,50); a.Println(5);
Writeln(5*a.ColCount*'-');
foreach var c in a.Cols do Write(c.Sum:5);
end.
Пример
44 30 -45
10 -9 -1
37 30 11
24 -16 -22
115 35 -57