Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля, но меньших единицы - Pascal ABC

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

Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля,но меньше единицы

Код к задаче: «Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля, но меньших единицы - Pascal ABC»

textual
  for j:=1 to n do begin
    s:=0; c:=0;
    for i:=1 to m do
      if (a[i,j]>0) and (a[i,j]<1) then begin
        s:=s+a[i,j];
        c:=c+1;
      end;
    write(j,': ');
    if c>0 then begin
      s:=s/c;
      writeln(s);
    end else writeln('В этом столбце нет таких элементов');
  end;

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

14   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы