// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i;
if imin<imax then
for var i:=imin+1 to imax-1 do a[i]:=0
else
for var i:=imax+1 to imin-1 do a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50
//PASCAL ABC.NET
var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.
Ослеп, а уже выдает себя за колдуна
Умный человек быстро старится
Каждый глупец глуп на свой лад
Старый бамбук даст молодые побеги
Молодой ум что облачко на ветру
Никто не уйдет от справедливого воздаяния
Жалобы былинки не остановят тайфуна
Тиграм и оленям вместе не гулять
Лучше быть умным слугой, чем глупым хозяином
Голова большая, а глупая
Девять человек все равно что десяток
Когда много свах, вечером приходится ложиться спать одному
Стар, а все еще хочет в детский барабан бить
Когда змее хорошо, лягушке плохо
Делай коромысло себе по плечу
Плохой танцор говорит, что земля неровная
Можно избавиться от болезни, но от судьбы не избавишься
Когда ты здесь - тебя ругают, уйдешь - тебя жалеют
Малые ветры, собравшись воедино, образуют тайфун
Увидел, что мягко, - и копает
Где кончается ум, там начинается глупость
Пагода ветхая, да Будда в ней золотой
Сбежал из силка, а попал в капкан
И святые любят деньги
Я не знаю нужны тебе вопросы или слова,но вот схема
