Определить среднее арифметическое четных элементов третьего столбца матрицы - Turbo Pascal (33973)

Формулировка задачи:

7.36 Дан двухмерный массив целых чисел. Определить: а) среднее арифметическое четных элементов третьего столбца; 6) среднее арифметическое элементов четвертой строки, кратных трем

Код к задаче: «Определить среднее арифметическое четных элементов третьего столбца матрицы - Turbo Pascal (33973)»

textual
const m=10, n=10;
Var a: array [1..n,1..m] of integer;
     i, j, c, p: integer;
     s: real;
begin
{Заполните массив так, как вам надо}
For i := 1 to  do
    If a[i,3] mod 2 = 0 then inc(c);
For  j:= 1 to m do
    If  a[4,j] mod 3 = 0 then
       begin
              s:=s+a[4,j];
              inc(p);
       end;
s:=s/p;
write( c, s);    
end.

15   голосов, оценка 3.733 из 5


СОХРАНИТЬ ССЫЛКУ