-Peer-

В КАЖДОЙ СТРОКЕ ПРОСУММИРОВАТЬ ЭЛЕМЕНТЫ СТОЯЩИЕ ПОСЛЕ ПЕРВОГО ОТРИЦАТЕЛЬНОГО.

Sep 26th, 2020 (edited)
2,420
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. program SumAfterNegative;
  3. var
  4.   myArray: array [1..4, 1..6] of integer;
  5.   lin, col, temp: byte;
  6.   Sum: longint;
  7. begin
  8. { ЗАПОЛНЕНИЕ }
  9.   writeln ('Двумерный массив:');
  10.   Randomize;
  11.   for lin := 1 to 4 do
  12.   begin
  13.     for col := 1 to 6 do
  14.     begin
  15.       myArray[lin, col] := Random (2000) - 999; { PascalABC позволяет myArray[lin, col] := Random (-999, 999); }
  16.       write (myArray[lin, col]:6);
  17.     end;
  18.     writeln;
  19.   end;
  20. { ОБРАБОТКА И ВЫВОД }
  21.   writeln ('Результаты поиска:');
  22.   for lin := 1 to 4 do
  23.   begin
  24.     write ('Строка номер ', lin:1, ' ... ');
  25.     col := 1;
  26.     while (col < 6) and (myArray[lin, col] >= 0) do inc (col); // без break
  27.     if col = 6 then writeln ('Неопределённая сумма — слагаемые отсутствуют!!!')
  28.     else
  29.     begin
  30.       Sum := myArray[lin, col + 1];
  31.       for temp := col + 2 to 6 do Sum := Sum + myArray[lin, temp];
  32.       writeln ('Сумма равна ', Sum:0);
  33.     end;
  34.   end;
  35.   writeln('Ознакомьтесь с результатом, потом нажмите Enter для выхода');
  36.   readln;
  37. end.
  38.    
RAW Paste Data