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

Дано натуральное число n, m и вещественная матрица размера nxm. Определить сумму наибольших значений ее столбцов.

  1. Ответ
    Ответ дан DagotPavel
    program znanija_com;
    const
       n = 3;
       m = 3;
    type
       mas = array[1..n, 1..m] of real;
    var
       arr : mas;
       i,j : integer;
       summ, max : real;
    begin
    for i:=1 to n do begin
      for j:=1 to m do begin
        writeln('Введите элемент массива [', i, ',', j, ']');
        readln(arr[i, j]);
      end;
    end;
    for i:=1 to m do begin
      max:=arr[1, i];
      for j:=2 to n do begin
        if arr[i,j]>max then max:=arr[i,j];
      end;
      summ:=summ+max;
    end;
    writeln('Сумма равна ', summ);
    readln();
    end.

    1. Ответ
      Ответ дан DagotPavel
      Обращайся)))
Самые новые вопросы