Найти минимальную из сумм нечетных элементов строк матрицы А - 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.
Объяснение кода листинга программы
- Установка начального размера матрицы и других переменных
- Запрос на ввод размера матрицы
- Генерация случайных чисел для заполнения матрицы
- Вывод исходной матрицы
- Счётчик для подсчёта суммы нечетных чисел в каждой строке
- Вывод суммы нечетных чисел каждой строки
- Если текущая сумма нечетных чисел меньше минимальной, то обновляется значение минимальной суммы
- Вывод минимальной суммы
- Ввод для завершения работы программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д