Предмет: Информатика,
автор: jonick1234
из массива Х (X1,X2,.....Xn) найти Xmax наибольший и Xmin наименьший элементы массива, их порядковые номера Nmax и Nmin, и поменять их местами. Результирующий массив вывести на экран
Ответы
Автор ответа:
1
Program al;
var x: array[1..32000] of integer;
buf:integer;
i,n,min,max:integer;
begin
writeln('i=');
readln(i);
writeln('vvedite massiv=');
for n := 1 to i do
readln(x[n]);
min:=1;
max:=1;
for n:=2 to i do
begin
if x[min]>x[n] then
min:=n;
if x[max]<x[n] then
max:=n;
end;
buf:=x[min];
x[min]:=x[max];
x[max]:=buf;
writeln('Massiv posle obmena max<->min');
for n:=1 to i do
write(x[n]:4);
writeln;
end.
var x: array[1..32000] of integer;
buf:integer;
i,n,min,max:integer;
begin
writeln('i=');
readln(i);
writeln('vvedite massiv=');
for n := 1 to i do
readln(x[n]);
min:=1;
max:=1;
for n:=2 to i do
begin
if x[min]>x[n] then
min:=n;
if x[max]<x[n] then
max:=n;
end;
buf:=x[min];
x[min]:=x[max];
x[max]:=buf;
writeln('Massiv posle obmena max<->min');
for n:=1 to i do
write(x[n]:4);
writeln;
end.
jonick1234:
Дан массив X(X1,X2,.....Xn). Найти значение максимального элемента Xmax. Если таких элементов несколько,то определить их количетсво К и порядковые номера. А сможете ещё одну решить?
Похожие вопросы
Предмет: Русский язык,
автор: gerasimov199523
Предмет: Русский язык,
автор: znanyasila1
Предмет: Қазақ тiлi,
автор: milka0121
Предмет: Геометрия,
автор: 10102005aLexAnDrA12
Предмет: Геометрия,
автор: lolo242