сервис вопросов и ответовЗадан одномерный массив целых чисел. Поменять местами первый положительный элемент массива с его первым минимальным элементом
5-9 класс|
|
Sergeygromov25
25 авг. 2014 г., 14:36:36 (9 лет назад)
Аnnet
25 авг. 2014 г., 15:34:05 (9 лет назад)
n, i, m, ind, x: integer;
a: array [1..1000] of integer;
begin
readln(n);
for i:= 1 to n do
read(a[i]);
m:=maxint;
for i:= 1 to n do
if (a[i]<m) then begin
m:=a[i];
ind:=i;
end;
for i:= 1 to n do
if (a[i]>0) then begin
x:=a[i];
a[i]:=m;
a[ind]:=x;
break;
end;
for i := 1 to n do
write(a[i], ' ');
readln;
end.
Держи
Mashenkabaldina
25 авг. 2014 г., 17:27:45 (9 лет назад)
var i,temp,pol,minA,min:integer;
a:array[1..5] of integer;
begin
minA:=a[1];
for i:=1 to 5 do begin
readln(a[i]);
if(a[i]<minA)then begin min:=i; minA:=a[i]; end;
if(a[i]>0)and (temp=0)then begin pol:=i; temp:=1; end;
end;
temp:=a[min];
a[min]:=a[pol];
a[pol]:=temp;
for i:=1 to 5 do write(a[i],' '); end.
Ответить
Другие вопросы из категории
Срочно в 10 балов!!
Коля рассказывает Пете: «Я вчера смотрел кинофильм. Кинофильм мне понравился.» Объясните, общим или единичным в данной ситуации является понятие «кинофильм».
Частотный словарь русского языка — словарь вероятностей (частот) появления букв в произвольном тексте – приведен ниже. Определите, какое количество
информации несет каждая буква этого словаря.
Символ
Частота
Символ
Частота
Символ
Частота
Символ
Частота
о 0.090 в 0.035 я 0.018 ж 0.007
е, е 0.072 к 0.028 Ы, 3 0.016 ю, ш 0.006
а, и 0.062 м 0.026 ь, ъ, б 0.014 ц, щ, э 0.003
т, н 0.053 д 0.025 ч 0.013 ф 0.002
с 0.045 п 0.023 й 0.012
р 0.040 У 0.021 X 0.009
2. Используя результат решения предыдущей задачи, определите количество информации в слове “компьютер”.
Читайте также
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Дан массив целых чисел.Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению
элементы массива. Число элементов в массиве не более 10-ти Pascal
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Вы находитесь на странице вопроса "Задан одномерный массив целых чисел. Поменять местами первый положительный элемент массива с его первым минимальным элементом", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.