Предмет: Информатика,
автор: lecoqsportiffff
TURBO PASKAL
В одномерном массиве A=(a(1), a(2),... , a(n)) поменять местами минимальный и максимальный элементы.
Ответы
Автор ответа:
0
pascal
const
n = 10;
var
a : array [1..n] of integer;
i : integer;
max,min,ima,imi : integer;
begin
for i := 1 to n do
readln (a[i]);
min :=a[1];
imi := 1;
for i := 1 to n do
begin
If a[i] > max then
begin
max := a[i]; //поиск и сохранение
ima := i; //max знач и его номер
end;
If a[i] < min then
begin
min := a[i]; //поиск и сохранение
imi := i; //min знач и его номер
end;
end;
a[imi] := max;
a[ima]:=min;
for i := 1 to n do
writeln (a[i]);
end.
const
n = 10;
var
a : array [1..n] of integer;
i : integer;
max,min,ima,imi : integer;
begin
for i := 1 to n do
readln (a[i]);
min :=a[1];
imi := 1;
for i := 1 to n do
begin
If a[i] > max then
begin
max := a[i]; //поиск и сохранение
ima := i; //max знач и его номер
end;
If a[i] < min then
begin
min := a[i]; //поиск и сохранение
imi := i; //min знач и его номер
end;
end;
a[imi] := max;
a[ima]:=min;
for i := 1 to n do
writeln (a[i]);
end.
Автор ответа:
0
Вот, я думаю это будет правильно) Спасибо!
Автор ответа:
0
А Вы сами пробовали запускать программу? у Вас работает?
Автор ответа:
0
ща точки с запятой забыл кое где
Автор ответа:
0
синтаксических сейчас нет
Автор ответа:
0
работает, точки с запятой я в силах доставить:)
Похожие вопросы
Предмет: Химия,
автор: dmitriybulavin56
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: ксюша29012001
Предмет: Математика,
автор: Marishkaaaaaaaaaa