Вопрос по информатике:
Задан одномерный массив целых чисел. Поменять местами первый положительный элемент массива с его первым минимальным элементом
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.06.2018 09:57
- Информатика
- remove_red_eye 2093
- thumb_up 32
Ответы и объяснения 2
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]
end;
temp:=a[min];
a[min]:=a[pol];
a[pol]:=temp;
for i:=1 to 5 do write(a[i],' '); end.
- 01.01.1970 00:00
- thumb_up 47
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]
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.
Держи
- 01.01.1970 00:00
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.