Создать вектор из суммы положительных элементов столбцов матрицы и найти в нём номер минимального элемента.

@Влад Костючик · Регистрация: 13.10.2013

Author24 — интернет-сервис помощи студентам

Дано матрицу B: 7х5. Образовать и напечатать вектор c, элементами которого являются суммы положительных элементов столбцов матрицы B. Найти номер минимального элемента вектора c.

@JokeR.BY · 26.05.2014, 05:24

Pascal

var
  B : array[0..6, 0..4] of ShortInt;
  C : array[0..4] of Byte;
  i, j, min : Byte;
 
begin
  {заполнение массива B}
  for i := 0 to 6 do
  begin
    for j := 0 to 4 do
    begin
      B[i, j] := Random(101) - 50;
      Write('mass[', i+1, '][', j+1, ']=', B[i, j]:3, #9);
    end;
    WriteLn;
  end;
  min := 255; WriteLn;
  {Формирование массива C и одновременный поиск минимума}
  for i := 0 to 4 do
  begin
    C[i] := 0;
    for j := 0 to 6 do
      if (B[j, i] > 0) then
        C[i] := C[i] + B[j, i];
    Write(#9, 'C[', i+1, ']=', C[i]:3, #9);
    if (min > C[i]) then
      min := C[i];
  end;
  WriteLn; WriteLn; WriteLn('min of C : ', min);
end.

@Влад Костючик 0 / 0 / 0 Регистрация: 13.10.2013 Сообщений: 31
		1
	Создать вектор из суммы положительных элементов столбцов матрицы и найти в нём номер минимального элемента. 26.05.2014, 00:25. Показов 1201. Ответов 1 Метки нет (Все метки) Дано матрицу B: 7х5. Образовать и напечатать вектор c, элементами которого являются суммы положительных элементов столбцов матрицы B. Найти номер минимального элемента вектора c. 0

	26.05.2014, 05:24

Создать вектор из суммы положительных элементов столбцов матрицы и найти в нём номер минимального элемента.

Решение