Begin
var arr: array[1..4,1..2] of double;
var s, sum: double;
sum := 0;
writeln('Vvedite matricu: ');
var i,j, count:integer;
count := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if j = 2 then
begin
readln(arr[i,j]);
if arr[i,j] < 0 then
begin
sum := sum + arr[i,j];
count := count + 1;
end;
end
else
read(arr[i,j]);
s := sum / count;
writeln('S = ',s:5:2)
End.
Comments
0 B
|👍
/👎
0 B
|👍
/👎