В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) номер минимального массива; 2) сумму элементов массива, расположенных после первого отрицательного элемента — Pascal(Паскаль)

Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которого не превышает 1, а потом – все остальные. Упорядочить каждую часть массива по возрастанию, используя алгоритм сортировки методом вставки.

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,j,j1,j2,min,k,s,a:integer;
     sr:real;
 
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Min:=x[1];
for i:=1 to n do
  if x[i]<=min then begin
                    min:=x[i];
                    j:=i;
                    end;
Writeln (' Minim element = ',min, ' ego nomer - ',j);
Writeln;
Write (' Pervyi otricatelnyi element = ');
for i:=1 to n do
  if x[i]<0 then begin
                 k:=x[i];
                 j1:=i;
                 break;
                 end;
Writeln (k);
s:=0;
for i:=(j1+1) to n do
s:=s+x[i];
writeln (' Summa elementov posle pervogo otricatelnogo el-ta = ',s);
writeln;
k:=0;
for i:=1 to n do
if abs(x[i])<=5 then
   begin
      k:=k+1;
      a:=x[i];
      for j2:=i downto k+1 do
      x[j2]:=x[j2-1];
      x[k]:=a;
   end;
writeln (' CoPtuPoBka ');
for i:=1 to n do
 write (x[i]:3);
Readln
end.

Похожие записи/страницы:

Leave a Comment

9 + 1 =