Ответ:
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]
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.