Регистрация
VadAltman13
23.11.2020 10:34
Информатика
Есть ответ 👍

Дан массив целых чисел.поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению элементы массива. число элементов в массиве не более 10-ти pascal

172
453
Посмотреть ответы 2

Ответы на вопрос:

katia6173
katia6173
4,5(57 оценок)

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

max,min,i,n,i1,i2: integer;

begin

readln(n);

for i: =1 to n do readln(a[i]);

max: =a[1];

min: =a[1];

for i: =1 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;

a[i1]: =a[i1]+a[i2];

a[i2]: =a[i1]-a[i2];

a[i1]: =a[i1]-a[i2];

for i: =1 to n do write(a[i],' ');

end.

Профессионал228
Профессионал228
4,4(25 оценок)

А обоняние кожа б кожа взрительная гвкусовая

Популярно: Информатика