Задан массив. Определить номер наибольшего элемента массива А и наибольшего значения среди модулей элементов массива А

Категория: Delphi/Pascal
2011-09-05 19:33:12
code: #pascal
  1. program naib_i_naibpomodulu;
  2. const
  3. SizeA = 10;
  4. var
  5. a:array[1..sizeA] of integer;
  6. i,max,maxabs:integer;
  7. procedure CreateMass;
  8. begin
  9. Randomize();
  10.   for i := 1 to sizeA do
  11.     begin
  12.       a[i]:=Random(10)-Random(10);
  13.       write(a[i],' ');
  14.     end;
  15. end;
  16. procedure FindMax;
  17. begin
  18.   max:=1;
  19.   for i := 1 to sizeA do
  20.     begin
  21.       if a[max] < a[i] then
  22.         max:=i;
  23.     end;
  24.     writeln('');
  25.     writeln('  Max zna4enie = ',a[max],' = (#',max,')');
  26. end;
  27. procedure FindMaxAbs;
  28. begin
  29.   maxabs:=1;
  30.   for i := 1 to sizeA do
  31.     begin
  32.       if abs(a[maxabs]) < abs(a[i]) then
  33.         maxabs:=i;
  34.     end;
  35.     writeln('');
  36.     writeln('|Max zna4enie| = ',abs(a[maxabs]),' = (#',maxabs,')');
  37. end;
  38. begin
  39.   CreateMass;
  40.   FindMax;
  41.   FindMaxAbs;
  42.   readln;
  43. end.
Поделиться:

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

теги: одномерный массив, массив, студенты, консольное приложение, наибольший элемент