ТутРешу.Ру

Дан вектор размером N поменять местами максимальный и минимальный…

Задание:

Дан вектор размером N поменять местами максимальный и минимальный элементы (пожалуйста решите, я ничего не понимаю, весь день делаю неполучается.)

Решение:

uses crt; var n,i,k,k1,m,min,max: integer; a: array[1… 1000] of integer; beginrandomize; read (n); for i: =1 to n do begin a[i]: =random (101) -50; if maxa[i] then begin k1: =i; min: =a[i]; end; write (a[i],'); end; writeln; m: =a[k]; a[k]: =a[k1]; a[k1]: =m; for i: =1 to n do write (a[i],'); end.




Знаете другой ответ?

Отправить свой ответ