Составить подпрограмму-функцию, которая переменной S присваивает сумму значений переменных , которые меньше чем максимальный отрицательный элемент массива Х. Вычислить значение S отдельно для первой строки и последнего столбика заданной целочисленной матрицы — Pascal(Паскаль)

program P1;
var pervaiaStroka, posledniiStolbec: array [1..100] of integer;
    Matrica: array [1..100, 1..100] of integer;
    kolvoStolbcov, kolvoStrok, i, j, S1, S2: integer;
 
function find_S(var A: array of integer): integer;
var max_min: integer;
begin
  max_min := -100;
  S := 0;
  for i := low(A) to high(A) do//low - нижний индекс массива А, high - верхний индекс
    if (A[i] > max_min) and (A[i] < 0) then
      max_min := A[i];
  for i := low(A) to high(A) do
    if A[i] < max_min then S := S + A[i];
  find_S := S;
end;
 
begin
  wtite('Vvedite kol-vo strok:  ');
  readln(kolvoStrok);
  wtite('Vvedite kol-vo stolbcov:  ');
  readln(kolvoStolbcov);
  for i := 1 to kolvoStrok do
    for j := 1 to kolvoStolbcov do
    begin
      randomize;
      Matrica[i, j] := random(200) - 100;// -100 <= Matrica[i, j] <= 100
    end;
  for i := 1 to kolvoStolbcov do
    pervaiaStroka[i] := na4alniiMassiv[1, i];
  S1 := find_S(pervaiaStroka);
  for i := 1 to kolvoStrok do
    posledniiStolbec[i] := na4alniiMassiv[i, kolvoStolbcov];
  S2 := find_S(posledniiStolbec);
  writeln('S для первой строки = ', S1);
  writeln('S для последнего столбца = ', S2);
end.

Leave a Comment

35 + = 42