Задан двумерный массив С из 4-х строк и 4-х столбцов (квадратная матрица). Составить программу подсчёта суммы всех отрицательных элементов и суммы элементов по главной диагонали. Подскажите пожалуйста :3
66
ОТВЕТЫ
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(*** Исходный массив ***);
var a:=MatrRandom(4,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*-);
var sn:=a.ElementsByRow.Where(t-gt;tlt;0).Sum;
Writeln(Сумма отрицательных элементов равна ,sn);
var sd:=0;
for var i:=0 to a.RowCount-1 do sd+=a[i,i];
Writeln(Сумма элементов на главной диагонали равна ,sd);
end.
Пример
*** Исходный массив ***
55 -36 70 19
79 14 5 -5
79 -9 -62 20
-71 69 -34 66
----------------
Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(*** Исходный массив ***);
var a:=MatrRandom(4,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*-);
var sn:=a.ElementsByRow.Where(t-gt;tlt;0).Sum;
Writeln(Сумма отрицательных элементов равна ,sn);
var sd:=0;
for var i:=0 to a.RowCount-1 do sd+=a[i,i];
Writeln(Сумма элементов на главной диагонали равна ,sd);
end.
Пример
*** Исходный массив ***
55 -36 70 19
79 14 5 -5
79 -9 -62 20
-71 69 -34 66
----------------
Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73
If(i=j)
{
A[i][j]+=A[i][j]
}
А вообще в инете вбей,cyberforum, найдешь
{
A[i][j]+=A[i][j]
}
А вообще в инете вбей,cyberforum, найдешь
111
Отв. дан
Thordirdin
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Севастиан
Спортсмен в первый день пробежал 5 км а последующие ...
2019-01-22 12:13:37
Androdred
Паскаль.Составте программу, позволяющую найти количество цифр во введённой строке ...
2019-01-22 12:12:08
Христиан
Паскаль.Составте программу, позволяющую ввести фимилию, имя и отчество учащегося, ...
2019-01-22 12:12:02
Savuzhyun
1. Составьте программу, которая запрашивает с клавиатуры значения x ...
2019-01-22 12:11:54