Задать вопрос
28 апреля, 21:44

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

+4
Ответы (1)
  1. 29 апреля, 00:56
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Заполнить массив 10 х10 целыми положительными, вычислите сумму элементов строки, в которой расположен максимальный элемент и сумму вывести ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы