maxN = индекс макс значения в массиве , minN - миним индекс массива
Через if мы по этапно сравниваем значения , если условия верны то , значения min/max меняется на текущее значения массива
Объяснение:
program d;
var min,max,i,minN,maxN : integer;
mas:array[0..4] of integer;
begin
for i:=0 to 4 do
begin
readln(mas[i]);
end;
min:=mas[0];
minN:=1;
maxN:=1;
max:=mas[0];
for i:=1 to 4 do
begin
if min<mas[i] then begin minN:=i; min:=mas[i] end;
if max>mas[i] then begin maxN:=i; max:=mas[i] end;
end;
mas[maxN]:=min;
mas[minN]:=max;
For i:=0 to 4 do
writeln(mas[i]);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Как запустить панель через командную строку?