Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на массив

Автор: Василий 26.12.2005 2:56

Завтра срочно надо её сдать!!!

В инсте толком нам ничо не объясняют!!! (((


Задача

В матрице А (5 строк, 4 столбца) определить номер столбца с минимальным значением среднего арифметического значения отрицательных элементов столбца.
Для вычисления среднего арифметического значения отрицательных элементов в произвольном столбце матрицы использовать процедуру.

Вот, что я уже намешал... сильно меня не ругайте... unsure.gif

koes - количество отрицательных элементов столбца
soes - сумма отрицательных элементов столбца



Код

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Type
matr=array [1..5,1..5] of real;


Var    A         : matr;
       i,j,koes  : integer;
       soes, sr  : real ;


Procedure MatrIn(n,m:integer; c:char; Var A:matr);
Var
i,j:integer;
begin
writeln('Vvedite matr',c,'size of',n,'*',m);
for i:=1 to n do
for j:=1 to m do
read (A[i,j]);
readln;
end;


procedure srmin(n,m:integer; Var A:matr;               )   ;

Var
    i,j : integer;

begin

For j:=1 to m do;
  begin
  koes:=0;
  soes:=0;
  For i:=1 to n do;
  if (A[i][j]<0) then

  koes:=koes+1;
  soes:=soes+A[i][j];

  sr:=soes/koes;

  end;


begin







end