1.составить блок-схему алгоритма нахождения площади сферы (s), если дан радиус (r).

s=4r2.

2. по составленной блок-схеме написать программу на языке паскаль.

3. записать результат выполнения программы в тетрадь.

#include <iostream>

#include <time.h>

using namespace std;

int main()

{

srand(time(NULL));

int N[100];

int sum = 0;

for(int i=0;i<100;i++){

 N[i] =rand();

}

cout << "vse elementu" << endl;

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

 cout << N[i] << " ";

cout << endl;

cout << "nechetnue elementu" << endl;

for(int i=0;i<100;i++){

 if(N[i]%2!=0)

  sum = sum + N[i];

  cout << N[i] << " ";

}

cout << endl;

cout<< "suma nechetnuh =  " << sum << endl;

system("pause");

return 0;

}

Объяснение:

Написал программу так, что-бы сначала выводило 100 элементов(рандом чисел), потом выводило нечетные элементы, потом выведет уже суму нечетных

Объяснение:

Pascal

program pr;

var

 i, n, k, cout: integer;

 a, b: array [1..100] of integer;

begin

 cout := 0;

 k := 1;

 writeln('Введите размер массива');

 readln(n);

 if (n>0) and (n<=10000) then  

 begin

 for i := 1 to n do

 begin

   read(a[i]);

 end;

 writeln;

 for i := 1 to n do

   if a[i] < 0 then

   begin

     cout := cout + 1;

     b[k] := a[i];

     k := k + 1;

   end;

 if cout = 0 then

   writeln(0) else  

   for k := 1 to cout do

     write(b[k]:3);

     end

     else writeln('Не корректный ввод n');

end.