сервис вопросов и ответовзадан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом
5-9 класс|
|
Us5555
09 янв. 2017 г., 10:38:56 (7 лет назад)
Marinabityukov
09 янв. 2017 г., 11:45:53 (7 лет назад)
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.
Ответить
Другие вопросы из категории
1) Напечатайте таблицу кубов чисел: -10, -8, -6, ... 10.
2)Определите результат выполнения программы (без компьютера)
begin
s:=0;x:=10;
repeat
s:=s+x;
x:=x+10;
untill x>12;
writein('s=',s);
writein('x=',s);
end.
Читайте также
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Дан массив целых чисел.Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению
элементы массива. Число элементов в массиве не более 10-ти Pascal
Вы находитесь на странице вопроса "задан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.