profile
Опубликовано 6 лет назад по предмету Информатика от Alina73

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

  1. Ответ
    Ответ дан sansanic

    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.

Самые новые вопросы