//Задание 4.83 Кучеренко
const m = 5;
n = 3;
Begin
var
DF: array[0..4,0..2] of integer;
writeln('Vvedite dannie v massive DF(', m, ',', n, '):');
var i, j: integer;
for i := 0 to m-1 do
begin
for j := 0 to n-2 do
read(DF[i][j]);
readln(DF[i][n-1]);
end;
var avg, sum: real;
sum := 0;
var count: integer;
count := 0;
for i := 0 to m - 1 do
begin
avg := 0;
sum := 0;
count := 0;
for j := 0 to n - 1 do
if DF[i][j] < 0 then
begin
sum := sum + DF[i][j];
count := count + 1;
end;
avg := sum / count;
writeln('I=', i+1, ', Avg=', avg);
end;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎