Задан одномерный массив целых чисел. вычислить сумму значений элементов, значения которых меньше половины значения максимального элемента чисел, но больше половины минимального элемента.

Begin max: =a[1]; min: =a[1]; for i: =1 to n do begin if (a[i]> max) then max: =a[i]; if (a[i]< min) then min: =a[i]; end; for i: =1 to n do if ((a[i]< min/2) and (a[i]> min/2)) then writeln(a[i], " "); end.

1. запрещено самостоятельно разбирать компьютер и все его комплектующие. при возникновении неисправностей необходимо обратитьсявсе кабели, соединяющие системный блок с другими устройствами, следует вставлять и вынимать только при выключенном компьютере. исключение составляют usb-устройства: они могут быть подключены к включенному компьютеру; запрещено самостоятельно устанавливать, удалять, деактивировать и изменять программное обеспечение и сетевые настройки на компьютере.запрещено подвергать компьютер и периферийные устройства , термическим и воздействиям. (нельзя сидеть на компьютере, проливать на него чай, кофе, просыпать семечки, ставить у батареи и других нагревательных приборов); при отключении электроэнергии источник бесперебойного питания (ибп) позволяет компьютеру оставаться в рабочем состоянии от 5 до 20 минут. при отключении электроэнергии в помещении пользователь должен в немедленном порядке провести правильное выключение компьютера.в случае обнаружения неисправности компьютерного оборудования или программного обеспечения, пользователь должен обратиться в службу тех поддержки 

язык си(откомпилирован и проверен был в dev-c++)

 

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

 

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.