Задание: Найти среднее арифметическое общей совокупности элементов тех строк заданной матрицы, последний элемент которых равен 1
program S2_Z1;
type m=array[1..100,1..100] of integer;
var A:m;
procedure vvod(m,n:integer;var x:m);
var i,j: integer;
begin writeln('введите элементы массива');
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
procedure arf(m,n:integer;var x:m);
var i,j,s:integer;sr:real;
begin
for i:=1 to m do begin s:=0; sr:=0;
if x[i,n]=1 then begin
for j:=1 to n do
s:=s+x[i,j]; sr:=s/n;
writeln ('среднее арифметическое ',i,' строки равно ',sr:5:2); end; end;
end;
begin
vvod(3,3,A);
arf(3,3,A);
end.
|
Главная
Каталог файлов
