Question

Составить программу, используя двумерные массивы: Найти сумму нечетныхцифр строки у которого второй элемент большепервого.(Pascal)​

Answer 1

Ответ:

var

 a: array[,] of integer;

 m, n, i, j, k, sum: integer;

begin

 Write('Введите размер матрицы M и N: '); ReadLn(m, n);

 SetLength(a, m, n);

 randomize;

 k := - 1;

 WriteLn('Массив:');

 for i := 0 to m - 1 do

 begin  

   for j := 0 to n - 1 do

   begin

     a[i, j] := random(100);

     Write(a[i, j]:4);

   end;

   WriteLn;

 end;

 for i := 0 to m - 1 do

    if (a[i, 1] > a[i,0]) and (k = -1) then k := i;

 if k = -1 then

 begin

   WriteLn('Нет строк, у которых второй элемент больше первого');

   exit;

 end;

 for j := 0 to n - 1 do

    if (a[k, j] mod 2 = 1) then sum := sum + a[k, j];

 WriteLn('Сумма нечетных чисел строки, у которой второй элемент больше первого, равна ', sum);

end.

Объяснение:

Answer 2

Вот пример программы на языке Pascal, которая находит сумму нечетных цифр в строке, у которой второй элемент больше первого. В этой программе предполагается, что строки представлены как одномерные массивы символов.

pascalCopy code
program SumOddDigits;

const
  MaxStringLength = 100; // Максимальная длина строки

var
  InputString: string;
  Sum: integer;
  i: integer;

begin
  writeln('Введите строку:');
  readln(InputString);

  // Проверка на минимальную длину строки
  if length(InputString) < 2 then
  begin
    writeln('Строка слишком короткая, введите строку с двумя или более символами.');
    readln;
    exit;
  end;

  Sum := 0;

  // Проходим по строке и вычисляем сумму нечетных цифр в строках, у которых второй элемент больше первого
  for i := 1 to length(InputString) - 1 do
  begin
    if (InputString[i] >= '0') and (InputString[i] <= '9') and (InputString[i] mod 2 = 1) and (InputString[i + 1] > InputString[i]) then
    begin
      Sum := Sum + ord(InputString[i]) - ord('0'); // Преобразуем символ в число и добавляем к сумме
    end;
  end;

  writeln('Сумма нечетных цифр в строке, у которой второй элемент больше первого: ', Sum);
  readln;
end.

Эта программа сначала считывает строку с клавиатуры, затем проверяет ее длину. Если строка короче двух символов, программа выводит сообщение об ошибке и завершает выполнение. Затем она проходит по строке и суммирует нечетные цифры в строках, у которых второй элемент больше первого.