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

290

409

Посмотреть ответы 2

Ответы на вопрос:

Зюна

Информатика

4,5(35 оценок)

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]< a[i] then max: =i; end; buf: =a[min]; a[min]: =a[max]; a[max]: =buf; writeln('massiv posle obmena max< -> min'); for i: =1 to n do write(a[i]: 4); writeln; end.