:ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. pascal abc

Var a1, b1, a2, b2, c, i, n: integer;     s: array[1..10000] of integer; begin     read (n);     for i : =1 to n do          read (s[i]);     a1: =s[1];     for i : =1 to n do          if s[i]> a1 then          begin            b1: =i;             a1: =s[i];           end;     s[b1]: =-63999;     a2: =s[1];     for i : =1 to n do          if s[i]> a2 then          begin            b2: =i;             a2: =s[i];           end;     writeln (b1,' ',b2);     write (a1,' ',a2); end.я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.

#include <iostream>

#include <math.h>

const double g = 9.08665;

int main() {

unsigned int h;

std::cout << "Enter height of tree :" ;

std::cin>> h;

if (std::cin.fail()) // если предыдущее извлечение оказалось неудачным,

       {

           std::cin.clear();

           std::cin.ignore(32767,'\n');

std::cout << "Please die";

return 2;

       }

if(h == 0) {

std::cout<<"You are stupid! Apple is on the earth\n";

return 1;

}

std::cout<<"Program is thinking, but you no!\n";

double t = sqrt(2 * h / g);

std::cout << "Time is " << t << "\n";

std::cout << "Goodbye asshole\n";

return 0;

}

Объяснение:

Надеюсь, тебе не поставят два за это

Замени мои матные выражения в "" и можешь сдавать

Допустим, что первый болельщик был прав в том, что наташа займет 1 место. следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что наташа займет второе место, значит, он был прав в том, что рита займет третье место. аналогично, рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что люда займет второе место. остается маша - четвертое место. все болельщики правы лишь в одном из своих прогнозов, условие выполняется. следовательно ответ: 1 место - наташа, 2 место - люда, 3 место - рита и 4 место - маша