Даны вещественные числа a1,a2,...,an

[Floro Flores]

Даны вещественные числа a1,a2,...,an.Заменить нулями те из них,величина которых по модулю больше максимального числа

[ROMA2PVT]

находишь максимум и

if abs(a[i])>max then
begin
a[i]:=0;
end;

uses
  crt;
var
  a:array [1..100] of integer;
  i,imax,n,max:integer;
begin
imax:=1;
max:=a[1];
randomize;
  write('Введите количество элементов: ');
  readln(n);
   writeln('Исходный массив: ');
  for i:=1 to n do
    begin
      a[i]:=random(10)-5;
      write(a[i],' ');
      if a[i]>max then
         begin
         imax:=i;
         max:=a[i];
         end;
    end;
    writeln;
    writeln('MAX[',imax,']:=',max);
    for i:=1 to n do
    if (abs(a[i])>max) then
    begin
    a[i]:=0;
    end;
    writeln;
        writeln('Полученный массив: ');
    for i:=1 to n do
    begin
    write(a[i],' ');
    end;
    writeln;
    end.

Т.е. вот так.

[Floro Flores]

Спасибо огромное

[ROMA2PVT]

Да не за что.

[Floro Flores]

Может еще 1 поможешь? только эту на бэйсике надо !
Дано натуральное число.Если в нем есть цифры a и b,то определить какая из них расположена правее.