Даны 20 чисел от 1 до 20. найти произведение чисел кратных 5 и 10 одновременно.

два числа 10 и 20

10*20=200

странное числа, кратные 10, всегда кратны пяти.

как бы там ни было этих чисел только два: 10 * 20 = 200 

Var     i,j,p: integer;     a: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(5,150);   write(a[i],' ');   end; writeln; for i: =1 to 10 do     for j: =i to 10 do     if a[j]> a[i] then       begin       p: =a[i];       a[i]: =a[j];       a[j]: =p       end; writeln('отсортированный массив: '); for i: =1 to 10 do  write(a[i],' '); end.

Могу подсказать идеи: в 1м используешь метод сортировки пузырьком, только не больше или меньше, а отрицательное или положительное во 2ом слишком просто, if(a[i]> b[i]) c[i]=a[i]; else c[i]=b[i]; в 3ем тоже дотсточно просто, пройтись циклом по массиву, и если число меньше нужного, а следующее больше, то пузырьком смещаешь все элементы выше i+1 вверх, а на i+1 вставляешь нужное число в 4ом пройти весь массив проверяя лучше через функцию каждое число на правильность в 5ом делаешь отдельный массив, в котором все сдавшие, и методом сложения всех чисел и деления на их количество находишь среднее. программы пиши сам, не честно на олимпиадах так нагло воровать, дальше всё равно не пройдёшь, в 8м классе на олимпиаде по информатике из 60 человек хоть что-то решили только 4, и то по 1ой