Замена нулем чисел, которые по модулю больше максимального

Категория: Delphi/Pascal
2011-08-28 19:59:57

Даны действительные числа a1, a2, … , an. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа (|ai| > max{a1, a2, … , an}).

code: #pascal
  1. USES CRT;
  2. var
  3. X,y:array [1..16] of integer;
  4. i,max,maxi:integer;
  5. Begin
  6.  CLRSCR;
  7.  Randomize;
  8.  Write('последовательность: ');
  9.  For i:=1 to 16 do
  10.  X[i]:= random (20)-10;
  11.  For i:=1 to 16 do
  12.  Write (X[i],' ');
  13.  Writeln;
  14.  For i:=1 to 16 do
  15.  if x[i]>max then
  16.  max:=x[i];
  17.  write('маскимальное число ',max);
  18.  writeln;
  19.  writeln('замена: ');
  20.  maxi:=abs(x[i]);
  21.  For i:=1 to 16 do
  22.  If max<abs(x[i]) then
  23.  begin
  24.   maxi:=x[i];
  25.   maxi:=0;
  26.   y[i]:=maxi;
  27.   writeln(' число ',x[i],' заменено на ',y[i],' ');
  28.  end;
  29.  Readkey;
  30. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, максимальное число, модуль