Решить ! 1. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести максимальный элемент данного массива и его номер. 2. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести все двузначные элементы массива и их номера. 3. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести предпоследний элемент массива кратный 3 и его номер.

1) var a=array[1..10]of integer; i,max,poz: integer; begin writeln('vverite 10 elementov') for i: =1 to 10 do read(a[i]); max: =a[1]; poz: =1; for i: =2 to 10 do if (a[i]> max)then begin max: =a[i]; poz: =i; end; writeln('max =  ',max,' ego nomer =', poz); end. 2) var a=array[1..10]of integer; i: integer; begin writeln('vverite 10 elementov') for i: =1 to 10 do read(a[i]); for i: =1 to 10 do if (a[i]> =10)and(a[i]< =99) then writeln(a[i],' ego  nomer',i); end. 3) var a=array[1..10]of integer; i,k,poz: integer; begin writeln('vverite 10 elementov') for i: =1 to 10 do read(a[i]); k: =0; for i: =10  downto 1 do begin if(a[i] mod 3 =0) then begin  k: =k+1; poz: =i; end; if(k=2) then writeln(a[i],' ego nomer =  ',i); end; if(k=0) then writeln('kratnyh 3 net'); if(k=1) then writeln('kratnyy 3 tol'ko 1: a[',poz,']=',a[poz]); end.

ну ок

Объяснение: