Определить положение максимального элемента в строке матрицы имеющий минимальную сумму положительных элементов - Turbo Pascal

  1. "определить положение максимального элемента в строке матрицы имеющий минимальную сумму положительных элементов"


textual

Код:

uses crt;
 
const
  nmax = 10;
  mmax = 10;
 
var
  A : array [1..nmax, 1..mmax] of integer;
  i, j, n, m : integer;
  sum, minsum, isum : integer;
  max, jmax : integer;
  
begin
  ClrScr;
  Repeat
    Write('Количество строк (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не более ', mmax, ') = ');
    Readln(m);
  until m in [1..mmax];
  Writeln('Введите элементы: ');
  for i := 1 to n do
    for j := 1 to n do
      Read(A[i, j]);
  ClrScr;
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(A[i, j], ' ');
      Writeln;
    end;
  for j := 1 to m do
    if A[1, j] > 0 then sum := sum + A[1, j];
  isum := 1;
  minsum := sum;
  for i := 2 to n do
    begin
      sum := 0;
      for j := 1 to m do if A[i, j] > 0 then sum := sum + A[i, j];
      if sum < minsum then
        begin
          isum := i;
          minsum := sum;          
        end;
    end;
  jmax :=  1;
  max := A[isum, 1];
  for j := 2 to m do
    if max < A[isum, j] then 
      begin
        jmax := j;
        max := A[isum, j];
      end;
  Writeln('Положение элемента [', isum, ';', jmax, ']');
  Readln;
end.


Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. Подскажите, наведите на путь, я реально не могу сообразить как она должна работать!! Танк в компьютерной игре может двигаться в одном из четырех направлений, обозначим их числами: 1 — север, 2 — восток, 3 — юг, 4 — запад. Направление движения изменяется тремя командами: 1 — поворот направо, 2 — поворот налево, 3 — поворот кругом. Пользователь вводит начальное направление движения, а затем ряд команд. Программа должна определять и печатать всякий раз новое направление. Выход из цикла — команда 0.

  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. Круг вписан в квадрат со стороной А. Определить, превышает ли площадь круга заданную величину Х и вывести сообщение на экран.

  1. Как мы знаем, Владимир периодически посещает плавательный бассейн. При взгляде сверху бассейн представляет собой прямоугольник размера W × H; его юго-западный угол имеет координаты (0; 0), северо-восточный — (W; H). Владимир находился в точке с координатами (X; Y), когда прозвенел звонок, оповещающий об окончании сеанса. Теперь Владимиру нужно плыть к ближайшему бортику, чтобы выйти из бассейна. Помогите ему определить, в какую сторону следует плыть. Входные данные Первая строка содержит целые числа W и H (1 ≤ W, H ≤ 100) — соответственно длину и ширину бассейна. Первая строка содержит целые числа X и Y (0 ≤ X ≤ W, 0 ≤ Y ≤ H) — координаты точки, в которой находится Владимир. Выходные данные Выведите один из символов 'N' (север), 'E' (восток), 'S' (юг), 'W' (запад), соответствующий направлению до ближайшего бортика. Если подходящих ответов несколько, выведите любой из них.

  1. Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. Программа, не могу понять как сделать Определить количество элементов равных нулю в заданной матрице А размерностью n*n.

  1. Даны │y│≤ 1; ε. Определить f(y) с точностью ε

  1. Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

  1. В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. Как сделать? Сижу туплю капец!