Дан одномерный массив А, состоящий из N различных элементов

Задание:

Дан одномерный массив А, состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести напечать.

Решение:

var a: array [1… 100] of integer; n,i: byte; m,b,c: byte; beginm: =1; b: =1; write ('Введите n='); readln (n); for i: =1 to n do begin readln (a[i]); if a[i]a[b] then b: =i; end; c: =a[m]; a[m]: =a[b]; a[b]: =c; write ('Результат: '); for i: =1 to n do write (a[i],'); end. П. С. Как будет возможность набацаю на бейсике

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

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