в массиве А(N) поменяйте местами первый отрицательный и минимальный элементы
10-11 класс
|
uses crt;
const N=10;
var a:array[1..N] of integer;
i,k,m,min,imin:integer;
Begin
readln(m);
for i:=1 to m do begin
readln(a[i]);
min:=min+a[i];
end;
for i:=1 to m do begin
if a[i]<0 then begin
k:=i;
break;
end;
end;
for i:=1 to m do begin
if a[i]<min then begin
min:=a[i];
imin:=i;
end;
end;
min:=a[imin];
a[imin]:=a[k];
a[k]:=min;
for i:=1 to m do write(a[i],' ');
end.
Другие вопросы из категории
program UKD;
var
P,S,R,c:real; a,b:integer;
begin
writeln('Введите a b');
read (a); read(b);
c := sqrt(a*a+b*b);
P := a+b+c;
S := 1/2*(a*b);
R := 1/2*sqrt(a*a+b*b);
writeln('P=',P,' S=',S,' R=',R);
end.
program UKD;
var
x,i,n:integer;
y:real;
begin
writeln('Vvedite x n');
read(x);
read(n);
for i:=1 to n do
begin
if(i mod 2<>0)then
y:=y+sqrt(sin(x)/i);
end;
write(y);
end.
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
Читайте также
последний - с наименьшим элементом массива. Случайные числа в [10;99]
2. Посчитайте сумму чётных элементов массива А(8). Случайные числа в [1;9]
3. Найдите номер нулевого элемента данного одномерного массива А(10). Случайные числа в [-10;10]
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
4х4. Поменять местами первый и последний элемент массива х.
Листингпрограммы:
Составьте программу замены местами в массиве B(N) первого положительного и минимального элементов. Спасибо заранее