Задача по информатике (Паскаль)

+ 0 -

Малинка9

28 нояб. 2013 г., 23:55:05 (10 лет назад)

Program Matrix;
Var A: Array [1..3, 1..3] of Integer;
b, i, j: Integer;
S: Real;
Begin
Randomize;
WriteLn('Начальный матрица:');
For i := 1 To 3 Do
Begin
For j := 1 To 3 Do
Begin
A[i, j] := Random(100) - 50;
Write(A[i, j], ' ');
End;
WriteLn;
End;
b := 0;
For i := 1 To 3 Do
Begin
j := i - 1;
While j > 0 Do
Begin
If A[i, j] < 0 Then
b := b + A[i, j];
j := j - 1;
End;
End;
S := 0;
For j := 1 To 3 Do
S := S + Sin(1 * i + (A[1, j]));
A[3, 1] := Round(S);
WriteLn('Сумма отрицательных элементов под главной диагональю равна ', b);
WriteLn('Начальный матрица:');
For i := 1 To 3 Do
Begin
For j := 1 To 3 Do
Write(A[i, j], ' ');
WriteLn;
End;
ReadLn;
End.