1.Дан массив целых чисел А[1..10]. Необходимо определить количество чисел, которые не менее чем в 2 раза меньше максимального числа.
2.Дан массив целых чисел D[1..5]. Определить номер максимального числа.]

1) program kolvo;

var k, maks, i:integer;

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

begin

k:=0;

maks:=0;

for i:=1 to 10 do

begin

writeln('Введите чичло номер ', i);

readln(a[i]);

if a[i]>maks then maks:= a[i];

end;

for i:=1 to 10 do

begin

write(a[i], ' ');

if a[i]<maks div 2 then k:=k+1;

end;

writeln;

writeln('Количество чисел, что минимум в два раза меньше максимального числа в массиве ', k);

end.

2)program maks;

var k, maks, i:integer;

d:array[1..5] of integer;

begin

k:=0;

maks:=0;

for i:=1 to 5 do

begin

writeln('Введите чичло номер ', i);

readln(d[i]);

if d[i]>maks then begin maks:= d[i]; k:=i; end;

end;

writeln;

for i:=1 to 5 do write(d[i], ' ');

writeln;

writeln('Номер максималтного числа в массиве ', k);

end.