Помогите с массивами в Pascal

[Татьянка]

Помогите с массивами в Pascal

:tehnari_ru_837:
Дан целочисленный вектор В.Записать вместо его максимального элемента сумму элементов,кратных 3.
Заранее спасибо)

 

[Vladimir_S]

:tehnari_ru_837:
Дан целочисленный вектор В.Записать вместо его максимального элемента сумму элементов,кратных 3.
Заранее спасибо)

Ну что, право, за детский сад... Фу!

CONST
 N=16;
VAR
 B:Array[1..N] of Word;
 i,Max,Imax:Byte;
 Sum:Word;
BEGIN
 Sum:=0;
 Randomize;
 For i:=1 to N do B[i]:=Random(100);
 For i:=1 to N do Write(B[i]:8);
 Writeln;
 Writeln;
 Imax:=1;
 Max:=B[1];
 For i:=1 to N do
  begin
   If B[i]>Max then
    begin
     Imax:=i;
     Max:=B[i];
    end;
   If (B[i] mod 3)=0 then Sum:=Sum+B[i];
  end;
 B[Imax]:=Sum;
 For i:=1 to N do Write(B[i]:8);
 Readln;
END.