Упорядочить ненулевые элементы второй четверти массива по возрастанию обратных значений. - Pascal
Формулировка задачи:
Здравствуйте помогите! Делаю курсовую, в задании нужно блок схему и как она записывается в паскале.)
Пожалуйста помогите мне, вроде если правильно, два задания я сделала... Остались ещё задания. Одно из них:
Упорядочить ненулевые элементы второй четверти массива R по возрастанию обратных значений.
Решение задачи: «Упорядочить ненулевые элементы второй четверти массива по возрастанию обратных значений.»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д