Упорядочить ненулевые элементы второй четверти массива по возрастанию обратных значений.

@Алсуш · Регистрация: 01.05.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте помогите! Делаю курсовую, в задании нужно блок схему и как она записывается в паскале.)
Пожалуйста помогите мне, вроде если правильно, два задания я сделала... Остались ещё задания. Одно из них:

Упорядочить ненулевые элементы второй четверти массива R по возрастанию обратных значений.

Комментарий модератора

Алсуш два задания сделала. Подтверждаю.

@CodeR · 04.05.2014, 06:39

Pascal

Const nmax=100;
Var R:array[1..nmax] of integer;
    i,j,n:byte;
    t:integer;
Begin
    Repeat
     write('1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      R[i]:=random(21);
      write(R[i]:3);
    End;
    For i:=n downto n div 2+2 do
     For j:=n div 2+2 to i do
      if (R[j]<>0)and(R[j-1]<>0) then 
       if 1 / R[j] < 1 / R[j-1] then
       Begin
         t:=R[j];
         R[j]:=R[j-1];
         R[j-1]:=t;
       End;
    writeln;
    writeln('Полученный массив');
    For i:=1 to n do
     write(R[i]:3);
    readln;
    readln;
End.

	04.05.2014, 06:39

Упорядочить ненулевые элементы второй четверти массива по возрастанию обратных значений.

Решение