22 ноября, 05:20

Напишите программу поиска минимального и максимального элементов матрицы. Программа должна менять максимальный и минимальный элементы между собой и выводить на экран исходную и преобразованную матрицы (Турбо Паскаль)

+2
Ответы (1)
  1. 22 ноября, 06:44
    0
    Program al;

    var a: array[1 ... 32000] of integer;

    buf:integer;

    i, n, min, max:integer;

    begin

    writeln ('n=');

    readln (n);

    writeln ('vvedite massiv=');

    for i : = 1 to n do

    readln (a[i]);

    min:=1;

    max:=1;

    for i:=2 to n do

    begin

    if a[min]>a[i] then

    min:=i;

    if a[max]
    max:=i;

    end;

    buf:=a[min];

    a[min]:=a[max];

    a[max]:=buf;

    writeln ('Massiv posle obmena maxmin');

    for i:=1 to n do

    write (a[i]:4);

    writeln;

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