В данной действительной...

Тема в разделе "Информатика", создана пользователем JAFFA, 4 апр 2010.

  1. JAFFA

    JAFFA New Member

    В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположены элемент с наименьшим значением. Предполагается чтотакой элемент единственный.
     
  2. S_Alex

    S_Alex New Member

    var
    matr: array[1..3, 1..3] of integer;
    i, j, sum, min, min_ind: integer;
    begin
    for i := 1 to 3 do
    for j := 1 to 3 do
    matr[i, j] := random(10) + 1;
    for i := 1 to 3 do
    begin
    for j := 1 to 3 do
    Write(matr[i, j], ' ');
    Writeln;
    end;
    min := matr[1, 1];
    for i := 1 to 3 do
    for j := 1 to 3 do
    if matr[i, j] < min then
    begin
    min := matr[i, j];
    min_ind := i;
    end;
    sum := 0;
    for j := 1 to 3 do
    sum := sum + matr[min_ind, j];
    Writeln('Сумма твоих элементов=', sum);
    end.
     

Поделиться этой страницей

Наша группа