Упорядочить последовательность по убыванию элементов и выдать на экран все элементы, большие некоторого заданного числа. и вот как раз это некоторое заданное число я взяла "с=2000". не могу написать часть программы, которая бы как раз и обозначала вывод на экран последовательность чисел, которые были бы больше заданного числа.. : ( program mas1; uses crt; var a: array [1..30] of real; i,n,p,k,c: integer; d: real; begin repeat write(' введите 0 readln(n); if (n< 0) or (n> 30) then writeln(' n неправильно введено'); until (n> =1) and (n< =30); p: =2; for k: =1 to n do begin p: =p*(k+2); a[k]: =p*cos(k); end; writeln(' получен массив а'); for i: =1 to n do writeln('a[',i: 2,']=',a[i]: 15: 3); writeln; for i: =1 to n do for k: =1 to n-i do if a[k] begin d: =a[k]; a[k]: =a[k+1]; a[k+1]: =d end; writeln; writeln(' массив по убыванию'); for i: =1 to n-1 do writeln('a[',i: 2,']=',a[i]: 15: 3); writeln; c: =2000; ? end.

kanyamax    3   18.06.2019 14:30    0