Цитата:
Сообщение от Татьянка
Дан целочисленный вектор В.Записать вместо его максимального элемента сумму элементов,кратных 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.