Из бруска длиной L с ребрами a, b был выточен цилиндр длиной 1, имеющий радиус rr < a/2, r < b/2, 1<L Вычислить объемы бруска ицилиндра, а также процент материала, ушедшего в отходы. Сделать в pascal​

Ваша программа:

mas = [3,5,67,-65,34,21] # задаем список

print(mas)

point=3 # задаем искомое значение

l = len(mas) # вычисляем длину списка (количество элементов)

for i in range( l ):

   if mas [i]==point:

       print("Содержит")

       break

   else:

       print ("Не содержит")

Можно ещё так записать:

mas = [3,5,67,-65,34,21] # задаем список

print(mas)

point=3 # задаем искомое значение

for i in mas: #смотрим каждый элемент в массиве

   if i == point:

       print("Содержит")

       break

   else:

       print ("Не содержит")

Можно написать так, что более понятно:

mas = [3,5,67,-65,34,21] # задаем список

print(mas)

point=3 # задаем искомое значение

if point in mas:

   print("Содержит")

else:

   print ("Не содержит")

Код:

#include <iostream>

using namespace std;

int main()

{

   int n,i,max,j,count=0,sum=0;

   cout << "n = ";

   cin >> n;

   int array[n];

   for (i=0;i<n;i++)

   {

       cin >> j;

       if (j>1000000)

       {

           cout << "Элемент массива превосходит 1000000";

           break;

       }

       else

       {

           array[i] = j;

           sum += j;

       }

   }

   max = array[0];

   for (i=1;i<n;i++)

   {

       if (array[i]>max)

       {

           max = array[i];

       }

   }

   for (i=0;i<n;i++)

   {

       if (array[i] == max)

       {

           count++;

       }

   }

   if (count > 1)

   {

       sum -= count*max;

       cout << "Сумма элементов массива без максимальных: " << sum;

   }

   else

   {

       sum -= max;

       cout << "Сумма элементов массива без максимального: " << sum;

   }

}  

Вывод:

n = 5                                                                                                                          

1 2 5 3 5                                                                                                                      

Сумма элементов массива без максимальных: 6  

1 + 2 + 3 = 6

n = 5                                                                                                                          

1 2 3 4 5                                                                                                                      

Сумма элементов массива без максимального: 10      

1 + 2 + 3 + 4 = 10