1.

program mas_min_el_i_no;

const n=15;

var

a:array[1..n]of integer;

i,m,k:integer;

begin

for i:=1 to n do

begin

write(i,'》');

read(a[i]);

end;

m:=a[1];

k:=1;

for i:=1 to n do

if a[i]<m then

begin

m:=a[i];

k:=i;

end;

writeln;

write(m,' ',k)

end.

2.

program mas_kolel_v_otr_s_nech_ind;

const

x:array[1..10]of real=(-17.3, 13.2, -7, -2.36, 123.4,-0.3, 12.356, 142,0, -1);

var

i,k:byte;

begin

k:=0;

for i:=1 to 10 do

if (x[i]>=5.1)and(x[i]<=32.4)and(i mod 2<>0) then

inc(k);

write(k)

end.

===== PascalABC.NET ====

= 1 =

begin

 var a := ReadArrInteger(15);

 var i := a.IndexMin;

 Print('Минимальный элемент номер', i + 1, 'равен', a[i])

end.

= 2 =

begin

 var x : array of real :=

     (-17.3, 13.2, -7, -2.36, 123.4, -0.3, 12.356, 142, 0, -1);

 x.Indices((v,i) -> i.IsEven and (v >= 5.1) and (v <= 32.4))

     .Count.Print

end.