Question

Помогите пожалуйста. Задано n произвольных чисел. Поменять местами наибольшее и наименьшее чисел.

Answer 1

На паскале (Pascal):

program gg;

var a: array[1..1000] of integer;

N, max, min, i1, i2, c: integer;

begin

writeln('Введите количество чисел');

readln(N);

writeln('Введите числа');

for i:= 1 to N do

readln(a[i]);

writeln('Ваши числа:');

for i:= 1 to N do

writeln(a[i]);

max:= a[1];

min:= a[1];

for i:= 2 to N do begin

if a[i] > max then begin

  max:= a[i];

  i1:= i;

end;

if a[i] < min then begin

 min:= a[i];

 i2:= i;

end;

end;

c:= a[i2];

a[i2]: = a[i1];

a[i1]:= c;

writeln('Результат:');

for i:= 1 to N do

writeln(a[i]);

end.