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

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

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

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

textual
const
  n = 4;
  m = 5;
var
  a : array[1..n, 1..m] of integer;
  i, j, s1, s2 : integer;
begin
  randomize;
  s1 := 0;
  s2 := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(50) - 25;
      write(a[i,j]:4);
      if (j = 3) then s1 := s1 + a[i,j];
      if (i = 4) and (a[i,j] mod 3 = 0) then s2 := s2 + a[i,j]
    end;
    writeln
  end;
  writeln('среднее арифметическое четных элементов третьего столбца: ', (s1 / n):6:2);
  writeln('среднее арифметическое элементов четвертой строки, кратных трем: ', (s2 / m):6:2);
  readln
end.

12   голосов, оценка 4.167 из 5


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