Опубликовано 4 года назад по предмету Информатика от Крысатул

Найти максимальный и минимальный элементы и поменять их местами.помогите

Ответ

Ответ дан Sky09

uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,imn,imx:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n: ');
readln(n);
until n in [1..max];
writeln('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i],' ');
end;
imn:=1;
imx:=1;
for i:=1 to n do
begin
if a[i]<a[imn] then imn:=i;
if a[i]>a[imx] then imx:=i;
end;
writeln('Минимальный элемент: ',a[imn],' Его индекс: ',imn);
writeln('Максимальный элемент: ',a[imx],' Его индекс: ',imx);
x:=a[imn];
a[imn]:=a[imx];a[imx]:=x;
writeln('Обмне максимального и минимального: ');
for i:=1 to n do
write(a[i],' ');
end.

Другие вопросы

Математика - 6 дней назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч