• Упорядочить последовательность по убыванию элементов и выдать на экран все элементы, большие некоторого заданного числа. И вот как раз это некоторое заданное число я взяла "с=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.

Ответы 2

  • Ох, благодарю. Был бы рядом, обняла бы :) Очень благодарна)
  • вот держи.там пояснил немного.если есть вопросы-задавай
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years