Необходимо решение задачки по ИКТ Pasckal 10 класс!!! -Отыскать сумму элементов
Нужно решение задачки по ИКТ Pasckal 10 класс!!!
-Отыскать сумму элементов в каждой строке двумерного массива матрица.
2 ответа
Pavel Valyshev
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Суммы по строчкам'); a.Rows.Select(r-gt;r.Sum).Println
end.
Внимание! Если программка не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Суммы по строчкам'); a.Rows.Select(r-gt;r.Sum).Println
end.
Данил Ичаджин
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := MatrRandom(ReadInteger('m-gt;'), ReadInteger('n-gt;'), -100, 100); a.Println(4);
for var i := 0 to a.RowCount - 1 do Println(i + 1, 'строчка=', a.Row(i).Sum);
end.
Пример:
m-gt; 4
n-gt; 5
-77 -22 53 -27 -36
91-100 53 -63 4
-76 -81 -73 -8 0
-87 -57 -6 -10 86
1 строка= -109
2 строчка= -15
3 строчка= -238
4 строка= -74
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := MatrRandom(ReadInteger('m-gt;'), ReadInteger('n-gt;'), -100, 100); a.Println(4);
for var i := 0 to a.RowCount - 1 do Println(i + 1, 'строчка=', a.Row(i).Sum);
end.
Пример:
m-gt; 4
n-gt; 5
-77 -22 53 -27 -36
91-100 53 -63 4
-76 -81 -73 -8 0
-87 -57 -6 -10 86
1 строка= -109
2 строчка= -15
3 строчка= -238
4 строка= -74
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов