сервис вопросов и ответовсоставить программу обмена местами максимума и минимума в массиве
10-11 класс|
|
Nuraisalamatov
21 авг. 2013 г., 13:59:29 (10 лет назад)
Toita197393
21 авг. 2013 г., 16:45:16 (10 лет назад)
var a:array[1..1000] of integer;
N,max,max1,min,min1,i: integer;
begin
writeln('Введите количество элементов'); readln(N);
min:=32768; max:=-32768;
for i:=1 to N do begin
readln(a[i]);
if a[i]>max then begin max:=a[i]; max1:=i; end;
if a[i]<min then begin min:=a[i]; min1:=i; end;
end;
if (max<>-32769)and(min<>32768) then begin
i:=a[max1]; a[max1]:=min; a[min1]:=i; end
else writeln('Обмен невозможен');
readln
end.
D7898
21 авг. 2013 г., 19:43:48 (10 лет назад)
var a, b, c, i, n, max, min:integer;
s :array [1..10000] of integer;
begin
read (n);
for i:=1 to n do
read (s[i]);
max:=s[1];
min:=s[1];
a:=1;
b:=1;
for i:=1 to n do
begin
if s[i]>=max then
begin
max:=s[i];
a:=i;
end;
if s[i]<min then
begin
min:=s[i];
b:=i;
end;
end;
s[a]:=min;
s[b]:=max;
writeln;
for i:=1 to n do
write (s[i],' ');
end.
Ответить
Другие вопросы из категории
Для регистрации на сайте некоторой страны пользователю необходимо придумать пароль длиной ровно 11 символов. В пароле можно использовать десятичные цифры и
12 различных символов местного алфавита, причем все буквы используются в двух начертаниях – строчные и прописные. Каждый символ кодируется одинаковым и минимально возможным количеством бит, а каждый пароль – одинаковым и минимально возможным количеством байт. Определите объем памяти, необходимый для хранения 60 паролей.
Читайте также
1. Составить программу для нахождения наибольшего числа из трех чисел.
2. Составить программу для упорядоченное двух элементов по убыванию.
составить программу для паскаля.1)Определить количество трехзначных чисел сума цифр которых равна числу N.2)Дано натуральное число N.Составить
программу меняющихся местами первую и последнюю цифру.
1)составить программу, организующую массив записей о книгах, ввести информацию по следующим полям:автор, название, год издания. Провести сортировку и
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
помогите составить программу!пожалуйста!!!!ооочень надо
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Вы находитесь на странице вопроса "составить программу обмена местами максимума и минимума в массиве", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.