Массив А(N,M).В каждом столбце найти среднее арифметическое нечетных элементов.Из полученных значений сформировать одномерный массив.
Массив А(N,M).В каждом столбце найти среднее арифметическое нечетных элементов.Из полученных значений сформировать одномерный массив.
Гость
Ответ(ы) на вопрос:
ГостьUses Crt;
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(30);
write(a[i,j]:4);
end;
end;
writeln;
for j:=1 to m do
begin
s:=0;k:=0;
for i:=1 to n do
if a[i,j]mod 2<>0 then
begin
s:=s+a[i,j];
k:=k+1;
end;
if k<>0 then
begin
c:=c+1;
b[c]:=s/k;
end;
end;
for i:=1 to c do
write(b[i]:8:2);
readkey;
end.
Не нашли ответ?
Похожие вопросы