Помогите по решению программы

[Deadmen517]

Помогите по решению программы

У одновимірному масиві D, що складається з N цілих елементів, обчислити:
a) максимальний по модулю елемент;
Пожалуйста код и блок схему)

 

[Vladimir_S]

А на якой-такой мовi потрібно? Телепатiв немає...

 

[Deadmen517]

На русской, если на украинском то переведу)

 

[Vladimir_S]

Да вообще-то я имел в виду язык программирования. Паскаль? Если да, то какой: Turbo, ABC? Или вовсе Delphi? У Вас об этом ни гу-гу.

 

[Deadmen517]

аа, точно, pascal ABC!)

 

[Vladimir_S]

аа, точно, pascal ABC!)

Const
 N=18;
Var
 D:Array[1..N] of Integer;
 i,Max,I_max:Integer;
Begin
 Randomize;
 Max:=0;
 For i:=1 to N do
  begin
   D[i]:=-50+Random(100);
   Write(D[i]:4);
   if Abs(D[i])>Max then
    begin
     Max:=Abs(D[i]);
     I_max:=i;
    end;
  end;
 Writeln;
 Writeln;
 Writeln('Result: element N',I_max,', value ',D[I_max]);
 Readln
End.

 

[Deadmen517]

Большое спасибо!

 

[Deadmen517]

Большое спасибо!

Не могли бы вы еще помочь вот с этим? тоже для pascal ABC, там вместо иероглифов русские слова!