Задача по информатике (Паскаль)Пожалуйста помогите сделать задание в паскале.Дана матрица...

Question

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

Пожалуйста помогите сделать задание в паскале.







Дана
матрица А(3.3)

1) Найти
число отрицательных элементов под главной диагональю.



2) Найти
сумму элементов первой строки по формуле.





3) Поменять
местами элемент третей строки и первого столбца на S.

---

Answer 1

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.