1. дан одномерный массив а(n), в котором находится единственный элемент , значение которого принадлежит интервалу от 2 до 5. найти где он находится , и упорядочить по убыванию элементы, расположенные перед ним. выдать на экран номер элемента и массив.

Const n=5; var a: array[1..n] of integer; i,l: integer; t: boolean; begin for i: =1 to n do read(a[i]); for i: =1 to n do if (a[i]> =2) and (a[i]< =5) then begin l: =i; break end; t: =true; while t do begin t: =false; for i: =1 to l-2 do if a[i]< a[i+1] then begin t: =true; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1] end end; writeln(l); for i: =1 to n do write(a[i],' ') end.

#include "stdafx.h" #include < iostream> #include< ctime> using namespace std; int main() { setlocale(lc_all, "ru"); srand(time(null));   const int size = 11;   int arr[size]; const int size2 = 1; int arr2[size2]{};   int arr3[size2]{};   for (int i = 0,j=0,d=0; i < size; i++) { arr[i] = rand() % 51-25;   if (arr[i] < 0) { arr2[j] = arr2[j] + arr[i]; }   if (arr[i] > 0) { arr3[d]= arr3[d]+ arr[i]; }   if (i == 10)   { cout < < "сумма отрицательных элементов массива = " < < arr2[j] < < endl;   cout < < "сумма положительных элементов массива = " < < arr3[d] < < endl; } }   system("pause"); return 0; }

  1)  var i,n,k: integer;   a: array[1..10] of integer; begin   for i: =1 to 10 do   read(a[i]);   writeln;   for i: =10 downto 1 do   write(a[i],' ');   readln;   readln end. 3) var i,n,k: integer; a: array[1..10] of integer; begin   for i: =1 to 10 do   read(a[i]);   writeln;   writeln((a[5]+a[6])/2: 0: 2);   readln;   readln end. 4) var i,n,k,min: integer; a: array[1..10] of integer; begin   for i: =1 to 10 do   begin     read(a[i]);     if (a[i] mod 10=4) or (a[i] mod 10=-4)     then min: =a[i];   for i: =1 to 10 do     if ((a[i] mod 10=4) or (a[i] mod 10=-4)) and (a[i]< min)     then min: =a[i];   writeln(min); end. 5)   var i,n,k,max: integer; a: array[1..10] of integer; begin   max: =0;   for i: =1 to 10 do   begin     read(a[i]);     if (a[i] mod 5=0) and (a[i]> max)     then max: =a[i];   end;   writeln(max); end.