Напишите программу поиска минимального и максимального элементов матрицы. Программа должна менять максимальный и минимальный элементы между собой и выводить на экран исходную и преобразованную матрицы (Турбо Паскаль)
Ответы
Ответ дал:
2
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.
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.
Murzilcka:
Огромное не человеческое спасибо!
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
5 лет назад
5 лет назад
7 лет назад
7 лет назад