Матрицы, наработок нет (2-ая задача)

[Otre4eHHbIu]

Дана матрица А, состоящая из m строк и n столбцов. Известно, что в матрице элемент последнего столбца может иметь лишь значения 0 и 1. Найти среднее арифметическое общей совокупности элементов тех строк, последний элемент которых равен 1.

[__STDC__]

const
	m = 2;
	n = 2;

type 
	matrix = array[1..m,1..n] of integer;

procedure fill_matrix(var X:matrix);
var
	i,j:byte;
begin
	randomize;
	for i:=1 to m do begin
		for j:=1 to n-1 do
			X[i,j] := random(10);
		X[i,n] := random(2);	
	end;
end;

procedure out_matrix(X:matrix);
var
	i,j:byte;
begin
	for i:=1 to m do begin
		for j:=1 to n do
			write(X[i,j]:3);
		writeln;
	end;
end;

function count_mean(X:matrix):real;
var
	i,j,k:byte;
begin
	count_mean := 0; k := 0;
	for i:=1 to m do
		for j:=1 to n do
			if (X[i,n] = 1) then begin
				count_mean := count_mean + X[i,j];
				inc(k)
			end
			else 
				break;
	count_mean := count_mean / k;
end;

var
	A:matrix;
begin
	fill_matrix(A);
	out_matrix(A);
	writeln('Mean is ',count_mean(A):0:5);
	readln;
end.

***
Естественно там надо еще учесть случай, когда k = 0 (все строки заканчиваются 0). Сами делайте.

[puporev]

uses crt;
var a:array[1..50,1..50] of integer;
    m,n,i,j,k:byte;
    sr:real;
begin
clrscr;
randomize;
write('Количество строк    m= ');
readln(m);
write('Количество столбцов n=');
readln(n);
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if j<n then a[i,j]:=random(10)+2
    else a[i,j]:=random(2);
    write(a[i,j]:4);
   end;
  writeln;
 end;
sr:=0;k:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,n]=1 then
  begin
   sr:=sr+a[i,j];
   k:=k+1;
  end;
sr:=sr/k;
write('Среднее по условию=',sr:0:2);
readln
end.

[Otre4eHHbIu]

огромное спасибо!