Дана матрица
Вычислить величину
где S1-сумма квадратов элементов матрицы
S2-сумма отрицательных элементов.
Решение:
Program ZAD_1_6;
Var
A: array [1..3,1..4] of real;
i,j: integer;
S1, S2, Y; real;
Begin
writeln ('Введите матрицу A');
for i:=1 to 3 do
for j:=1 to 4 do read (a [i,j]);
S1:=0;
S2:=0;
for i:=1 to 3 do
for j:=1 to 4 do
begin
if a[i,j] < 0 then S2:=S2+a[i,j];S1:=S1+sqr(a[i,j]);end;Y:=lnS1+sinabs(S2) ;write ('Y=', Y:6:2);end.