Все элементы массива, которые по модулю меньше значения 0,5 заменить нулями

1)for i:=1 to 15 do
    if abs(m[i])<0.5 then m[i]:=0;
2)
k:=0;
 for i:=1 to 12 do
     if a[i]=x then
      begin
        k:=i;
        break;
      end;
3) max:=a[1];
   for i:=2 to n do
      if max<a[i] then max:=a[i];
   if abs(max)>1 then writeln('Верно')
     else
       writeln('Не верно');
4) k:=0;
    i:=1;
    while (k<3)or(i>13) do
      begin
        if x[i]<0 then inc(k);
      end;
k:=0;
 for j:=i to 13 do
   if x[i]>0 then inc(k);
writeln('Количество положительных после третьего отрицательного ',k);

[QUOTE]
4) k:=0;
    i:=1;
    while (k<3)or(i>13) do
      begin
        if x[i]<0 then inc(k);
      end;
k:=0;
 for j:=i to 13 do
   if x[i]>0 then inc(k);
writeln('Количество положительных после третьего отрицательного ',k);
[/QUOTE]

 k:=0;
    i:=1;
    while (k<3)and(i<=13) do
      begin
        if x[i]<0 then inc(k);
      end;
k:=0;
 for j:=i to 13 do
   if x[i]>0 then inc(k);
writeln('Количество положительных после третьего отрицательного ',k);

uses crt;
const n=13;
var
a:array [1..n] of integer;
sum:integer;
i,j:integer;
begin
suM:=0;
for i:=1 to n do
 begin
 write(i,'-é ýëåìåíò ìàññèâà: ');
 read(a[i]);
 end;
 
for i:=1 to n-3 do
begin
if (a[i]=0) and (a[i+1]=0) and (a[i+2]=0) and(a[i+3]>0) then
for j:=i+3 to n do inc(sum);
end;
writeln('Êîë-âî ýë-òîâ ', sum);
end.

k:=0;
    i:=1;
    while (k<3)and(i<=13) do
      begin
        if x[i]<0 then inc(k);
      end;
k:=0;
 for j:=i to 13 do
   if x[i]>0 then inc(k);
writeln('Количество положительных после третьего отрицательного ',k);

........//......
i:=1;
while i<>13 do
begin
if (a[i]=0) and (a[i+1]=0) and (a[i+2]=0) and(a[i+3]>0) then
for j:=i+3 to n do inc(sum);
inc(i);
end;
writeln('Êîë-âî ýë-òîâ ', sum);
end.