Напишите программу поиска минимального и максимального элементов матрицы. Программа должна менять максимальный и минимальный элементы между собой и выводить на экран исходную и преобразованную матрицы (Турбо Паскаль)
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]
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
