Задать вопрос
8 июля, 06:50

В матрице A найти строку с наименьшим элементом и упорядочить элементы этой строки по возрастанию. Результат записать в матрицу Б. Элементы матрицы А

вычисляется по формуле a_{ij} = sinj (1-sini), где i, j=1,2 ... 10. Pascal. Через процедуры

+5
Ответы (1)
  1. 8 июля, 08:16
    0
    Const nx=20;

    var i, j, n, s:integer; A, B:array[1 ... nx, 1 ... nx] of real; min, t:real;

    z:array[1 ... nx] of real;

    begin

    min:=100;

    write ('Введите размер матрицы n'); Readln (n);

    for i:=1 to n do begin

    for j:=1 to n do begin

    A[i, j]: = sin (j) * (1-sin (i));

    write (A[i, j]:9:4);

    if min > A[i, j] then begin min: = A[i, j]; s:=i; end;

    end; writeln; end; writeln;

    i:=s;

    for j:=1 to n do begin

    z[j]:=A[i, j]; write (z[j]:9:4); end;

    for i:=1 to n do begin

    for j:=2 to n do begin

    if z[j-1]> z[j] then begin

    t:=z[j-1]; z[j-1]:=z[j]; z[j]:=t

    end; end; end;

    writeln;

    i:=s;

    for j:=1 to n do begin

    A[i, j]:=z[j]; write (z[j]:9:4); end;

    writeln; writeln;

    for i:=1 to n do begin

    for j:=1 to n do begin

    B[i, j]: = A[i, j]; write (B[i, j]:9:4); end;

    writeln; end;

    writeln; write ('min = ', min:9:4, ' I = ', s);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «В матрице A найти строку с наименьшим элементом и упорядочить элементы этой строки по возрастанию. Результат записать в матрицу Б. Элементы ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы