Двумерный массив. Среднее арифметическое элементов строки

@yaho · Регистрация: 06.09.2012

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

Дан двухмерный массив целых чисел. Определить среднее арифметическое нечетных элементов пятой строки.

Комментарий модератора

Правила форума п 4.4: На каждый вопрос создавайте по одной теме.

@domovou2.0 · 03.10.2012, 18:56

Pascal

const
n=5;
m=8;
var mas:array [1..100,1..100] of integer;
j,i,sum:integer;
sr:real;
begin
sum:=0;
for i:=1 to n do begin
    for j:= 1 to m do begin
        mas[i,j]:=random(16);
        write(mas[i,j]:3);
        if (i=5) and (mas[i,j] mod 2 <>0) then begin
            inc(sum);
            sr:=sr+mas[i,j];
            end;
        end;
    writeln;
    end;
sr:=sr/sum;
writeln(sr:0:3);
readln;
end.

	03.10.2012, 18:56

Двумерный массив. Среднее арифметическое элементов строки

Решение