Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5)

@Асочка · Регистрация: 18.05.2014

Студворк — интернет-сервис помощи студентам

Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5).

@ELeN04KA · 21.05.2014, 22:38

Как то так....

Pascal

program sred_matrica;
var i,j,b:integer;
            a:real;
    m: array [1..4,1..5]of integer;
begin
for i:=1 to 4 do begin
 for j:=1 to 5 do begin
                    m[i,j]:=random(10);
                    write(m[i,j]:4);
 end;
writeln('');
end;
writeln('');
 
 
for i:=1 to 4 do begin
a:=0;
b:=0;
  for j:=1 to 5 do begin
    write(m[i,j]:4);   
    if ((m[i,j] mod 2)=0)and(m[i,j]<>0) then begin
                              a:=m[i,j]+a;
                              b:=b+1;
                             end;
  end;
a:=a/b;
writeln(' среднее арифметическое строки: ',a);
writeln('');  
end;
 
end.

@Асочка 0 / 0 / 0 Регистрация: 18.05.2014 Сообщений: 6
		1
	Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5) 18.05.2014, 14:40. Показов 1629. Ответов 1 Метки нет (Все метки) Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5). 0

Опции темы

Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5)

Решение