Найти минимальную из сумм нечетных элементов строк матрицы А - Free Pascal

Узнай цену своей работы

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

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

Решение задачи: «Найти минимальную из сумм нечетных элементов строк матрицы А»

textual
Листинг программы
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s,mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Суммы нечетных в строках');
mn:=maxint;
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  if odd(a[i,j])then s:=s+a[i,j];
  writeln(i:2,'=',s);
  if s<mn then mn:=s;
 end;
write('Минимальная сумма=',mn);
readln
end.

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

  1. Установка начального размера матрицы и других переменных
  2. Запрос на ввод размера матрицы
  3. Генерация случайных чисел для заполнения матрицы
  4. Вывод исходной матрицы
  5. Счётчик для подсчёта суммы нечетных чисел в каждой строке
  6. Вывод суммы нечетных чисел каждой строки
  7. Если текущая сумма нечетных чисел меньше минимальной, то обновляется значение минимальной суммы
  8. Вывод минимальной суммы
  9. Ввод для завершения работы программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 3.8 из 5
Похожие ответы