Выполните алгоритм и запишите слово

const

 n = 25;

var

 a: array[1..n] of integer;

 k0, k, i, s: integer;

 p: real;

begin

 s := 0;

 p := 1;

 k := 0;

 k0 := 0;

 for i := 1 to n do

 begin

   a[i] := -n div 2 + random(n);

   Write(a[i]:4);

   if a[i] = 0 then

     inc(k0);

   if a[i] > 0 then

     s := s + a[i];

   if a[i] < 0 then

   begin

     p := p * a[i];

     inc(k);

   end;

 end;

 WriteLn;

 Writeln('Сумма: ', s);

 Writeln('Количество 0: ', k0);

 if k <> 0 then

   Writeln('Произведение: ', p)

 else

   Writeln('Нет таких чисел. ')

end.

Объяснение:

Поставь мне 5 звёзд и лучший ответ :D

1.

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

   long long a, b;

   cin >> a >> b;

   cout << a*b << " " << (a+b)*2 << " " << sqrt(a*a + b*b) << endl;

   return 0;

}

2.

#include <iostream>

using namespace std;

int main()

{

   long long a, b, c;

   cin >> a >> b >> c;

   if(a == b || a == c || b == c)

       cout << "YES" << endl;

   else

       cout << "NO" << endl;

   return 0;

}

3.

#include <iostream>

using namespace std;

int main()

{

   int a;

   cin >> a;

   if(a <= 3)

       cout << "low" << endl;

   else

       if(a <= 6)

       cout << "medium" << endl;

   else

       if(a <= 9)

       cout << "prehigh" << endl;

   else

       cout << "high" << endl;

   return 0;

}

4.

#include <iostream>

using namespace std;

int main()

{

   long long a;

   cin >> a;

   if(a/10%10 > a/1000)

       cout << "YES" << endl;

   else

       cout << "NO" << endl;

   return 0;

}

Объяснение: