Дана вещественная матрица A (n*m). получить: k - число компонент матрицы А, принадлежащий отрезку [3;5], s- сумму компонент, не принадлежащий отрезку [7;10]
Нужно сделать программу на языке Паскаль. Через массив.

Предыдущий
вопрос Следующий
вопрос

program MatrixCalculation;

const
n = 3; // количество строк матрицы
m = 3; // количество столбцов матрицы

type
Matrix = array[1..n, 1..m] of real;

var
A: Matrix;
i, j, k: integer;
s: real;

procedure FillMatrix(var A: Matrix);
begin
for i := 1 to n do
for j := 1 to m do
begin
write('Enter element A[', i, ', ', j, ']: ');
readln(A[i, j]);
end;
end;

function CountK(A: Matrix): integer;
var
count: integer;
begin
count := 0;
for i := 1 to n do
for j := 1 to m do
if (A[i, j] >= 3) and (A[i, j] <= 5) then
count := count + 1;
CountK := count;
end;

function SumS(A: Matrix): real;
var
sum: real;
begin
sum := 0;
for i := 1 to n do
for j := 1 to m do
if (A[i, j] < 7) or (A[i, j] > 10) then
sum := sum + A[i, j];
SumS := sum;
end;

begin
FillMatrix(A);

k := CountK(A);
s := SumS(A);

writeln('k = ', k);
writeln('s = ', s:0:2);
end.