Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Var
- A: Array [1..10, 1..10] Of Real;
- Mid: Array [1..10] Of Real;
- I, J, C: Integer;
- Begin
- Randomize;
- WriteLn('Матрица:');
- For J:= 1 To 10 Do Begin
- For I:= 1 To 10 Do Begin
- A[I, J]:= Integer(Random(51)) - 25;
- Write(A[I, J]:7:2);
- End;
- WriteLn;
- End;
- WriteLn('Среднее арифметическое для каждого столбца:');
- For I:= 1 To 10 Do Begin
- For J:= 1 To 10 Do Mid[I]:= Mid[I] + A[I, J];
- Mid[I]:= Mid[I] / 10;
- Write(Mid[I]:7:2);
- End;
- WriteLn;
- For J:= 1 To 10 Do Begin
- If Mid[J] > A[J, 11 - J] Then C:= C + 1;
- End;
- WriteLn('Количество столбцов, где ср.арифм > текущий элемент побочной диагонали: ', C);
- ReadLn;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement