74

Заполнить массив 10 х 10 целыми положительными, вычислите сумму элементов строки, в…

11 марта 2023

Заполнить массив 10 х 10 целыми положительными, вычислите сумму элементов строки, в которой расположен максимальный элемент и сумму вывести наэкран

категория: информатика



94

const n=3; var a: array[1… n, 1… n] of word; i, j, max, MaxI, S: longint; {i и j — переменные для цикла, max — максимальный элемент, S — сумма, MaxI — номер строки, в которой расположен максимальный элемент}begin S: =0; max: =0; for i: =1 to n do for j: =1 to n do begin writeln ('Введите a[',i,', ', j, ']'); readln (a[i,j]); if a[i, j]>max then begin max: =a[i, j]; MaxI: =i; end; end; //for for j: =1 to n do s: =s+a[MaxI, j]; writeln ('Сумма элементов строки, в которой расположен максимальный элемент равна ', S); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...