В каждой строке двумерной матрицы (n, m), состоящей их произвольных чисел, вычислить количество, сумму и среднее арифметическое отрицательных элементов
В каждой строке двумерной матрицы (n, m), состоящей их произвольных чисел, вычислить количество, сумму и среднее арифметическое отрицательных элементов
Гость
Ответ(ы) на вопрос:
Гостьprogram asd;
Const n=4;
m=4;
var A:array[1..n,1..m] of integer;
i,j,k,s:integer;
sr:real;
BEGIN
For i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=5-Random(15);
Write(A[i,j]:4);
end;
Writeln();
end;
For i:=1 to n do
begin
s:=0; k:=0;
for j:=1 to m do
begin
If A[i,j]<0 then
begin
s:=s+A[i,j];
inc(k);
sr:=s/k;
end;
end;
Writeln('Строка: ',i,'; Сумма: ',s,'; Количество: ',k,'; Ср. ариф.: ',sr:2:2);
end;
END.
Не нашли ответ?
Похожие вопросы