Вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0 - Turbo Pascal

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

1) В двумерном массиве А(4,4) вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0

Код к задаче: «Вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0 - Turbo Pascal»

textual
var
  a: array[1..4, 1..4] of integer;
  i, j, k, q, s: integer;
 
begin
  writeln('Исходный массив:');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
    begin
      a[i, j] := random(10);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  
  k := 0; // количество элементов, меньших 5
  q := 0; // количество элементов, равных 0
  s := 0; // сумма элементов, меньших 5
  for i := 1 to 4 do
    for j := 1 to 4 do
      if a[i, j] < 5 then
      begin
        inc(k);
        s := s + a[i, j];
      end else
      if a[i, j] = 0 then inc(q);
  writeln('равных 0: ', q);
  writeln('среднее, меньших 5: ', s / k);
  readln;
end.

8   голосов, оценка 3.875 из 5


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