Вывести "ДА", если сумма элементов первого столбца совпадает с суммой элементов последнего столбца - PascalABC.NET

Формулировка задачи:

Заполнен двумерный массив 4 на 3 с клавиатуры. Вывести "ДА", если сумма элементов первого столбца совпадает с суммой элементов последнего столбца.

Решение задачи: «Вывести "ДА", если сумма элементов первого столбца совпадает с суммой элементов последнего столбца»

Листинг программы

…
  var S1 := 0; var S3 := 0;
  for var Row := 1 to 4 do
    begin
      S1 += A[Row, 1]; S3 += A[Row, 3];
    end;
  WriteLn(S1 = S3 ? 'ДА' : 'НЕТ');
end.

Объяснение кода листинга программы

В данном коде используется цикл for для прохода по всем элементам матрицы (4 строки). На каждой итерации цикла суммируются элементы первого столбца (S1) и третьего столбца (S3). После завершения цикла выводится результат сравнения двух сумм (S1 и S3) с помощью оператора =. Если суммы равны, то выводится слово ДА, иначе выводится слово НЕТ.

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы