profile
Опубликовано 4 года назад по предмету Информатика от Fosters

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

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



 



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

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




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


 



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

  1. Ответ
    Ответ дан preceptor
    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.