написать программы

 1)В одномерном массиве с(1:10) найти количество элементов  удовлетвор. условию с от i >q и с от i<l .

2)Найти минимальный и максимальный элемент массива и его индекс .

программу написала в паскале, надеюсь подходит))

program 1;var a:array[1..10] of integer; i,q,max,min,l,k:integer;begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; writeln; for i:=1 to 10 do if (a[i]>q) and (a[i]<l) then inc(k); writeln('k=',k);end.

2. 

program 2;var a:array[1..10] of integer; i,max,min,k,l:integer;begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to 10 do begin if a[i]>max then begin max:=a[i]; k:=i; end; if a[i]<min then begin min:=a[i]; l:=i; end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l);end.