Разместите вычисленные значения функции y=1+sin(π/8-x) для х∈[0, 2] с шагом h=0, 2 в одномерный массив y. “cожмите” числовой массив, выбросив из него отрицательные числа. определите, является ли заданный массив по убыванию в pascal abc.

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

var

s : real;

c, i : integer;

begin

s: =0;

c: =0;

for i: =10 to 99 do

  if (i mod 2 =1) and (i mod 3 =0) then begin

                                        s: =s+i;

                                        inc(c);

                                        end;

s: =s/c;

writeln(s);

end.

объяснение:

#include

using namespace std;

int main()

{

    int n;

    cin > > n;

    int d[10];

    for(int i=0; i< 10; i++)

        d[i] = 0;

    while(n> 0)

    {

        int c = n % 10;

        if(d[c] ! = 0)

        {

            cout < < "no";

            return 0;

        }

        d[c] = 1;

        n /= 10;

    }

    cout < < "yes";

    return 0;

}