Решить по в заданном массиве a(n), все элементы которого попарно различны, найдите: а) наибольший элемент из отрицательных; б) наименьший элемент из положительных; в) второй по величине элемент. на си++!

с в) долго думал

 

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < iostream> using namespace std; int main(int argc, char* argv[]){int arr[10]; cout < < "input elements " < < endl; for ( int i= 0; i < 10; i++ ) cin > > arr[i]; int max=-9999; int min=9999; cout < < "massiv " < < endl; for ( int o= 0; o < 10; o++ )cout < < arr[o] < < " "; cout < < ""< < endl; for ( int l= 0; l < 10; l++ ) if((arr[l]> max) and (arr[l]< 0 ) ) max =arr[l]; cout < < "max from negatives is: " < < " "; cout < < max < < endl; for ( int z= 0; z < 10; z++ ) if((arr[z]< min)and(arr[z]> =0)) min =arr[z]; cout < < "min from positives is: " < < " "; cout < < min < < endl;

int gmax,gmax2; gmax=arr[1]; gmax2=arr[2]; for (int l=2; l< 10; l++)if(arr[l]> gmax){gmax2=gmax; gmax=arr[l]; }else if(arr[l]> gmax2)gmax2=arr[l]; cout < < "second greatest element is: " < < " "; cout < < gmax2< < endl; }

1var  2      i,n: byte; 3      s: integer; 4    begin 5      write('сколько слоев в пирамиде? '); 6      readln(n); 7      for i: =1 to n do 8      begin 9      s: =s+i*i; 10    writeln('в ',i,'-м слое ',i*i,' шаров'); 11    end; 12    writeln('в пирамиде из ',n,' слоев ',s,' шаров'); 13    readln; 14    end .

Впаскале имеется три вида стандартных циклов: 1) цикл с параметром (цикл for to do 2) цикл с предусловием (цикл while do 3) цикл с постусловием (цикл repeat until программа с использованием цикла с параметром: program z1; var i: integer;     x,p: real; begin p: =1;     {задаем начальное значение произведения} for i: =1 to 10 do  {указываем количество повторений} begin     readln(x);           {вводим очередное число х}     p: =p*x;               {умножаем введенное число х к произведению р} end; writeln(p);             {вывод результата} end.  программа с использованием цикла с предусловием: program z1; var i: integer;     x,p: real; begin p: =1;       {задаем начальное значение произведения} i: =1;       {задаем начальное значение счетчика} while i< =10 do      {задаем условие повторения цикла: пока i< =10} begin     readln(x);           {вводим очередное число х}     p: =p*x;             {умножаем введенное число х к произведению р}     i: =i+1;               {увеличиваем счетчик i  на единицу} end; writeln(p);           {вывод результата} end. программа с использованием цикла с постусловием: program z1; var i: integer;     x,p: real; begin p: =1;       {задаем начальное значение произведения} i: =1;       {задаем начальное значение счетчика} repeat            {повторять все указанные действия}     readln(x);     {вводим очередное число х}     p: =p*x;         {умножаем введенное число х к произведению р}     i: =i+1;           {увеличиваем счетчик i  на единицу} until i> 10;       {до тех пор, пока счетчик i не станет больше 10} writeln(p);       {вывод результата} end.