Доработайте пожалуйста,не могу написать,чтобы выводил наибольшее число,которое кратно 3 из линейного массива)
Program b11;
Var i,p:integer;
B:array [1..10] of integer;
Begin
randomize;
p:=0;
for i:=1 to 10 do begin
B[i]:= random(10) ;
write(B[i], );
end;
for i:=1 to 10 do
if B[i] mod 3 = 0 then
p:=p+B[i];
writeln ( );
writeln(сумма чисел кратных 3 = ,p);
readln;
end.
program b11;
var i, p, max: integer;
B: array [1..10] of integer;
begin
randomize;
p := 0;
for i := 1 to 10 do
begin
B[i] := random(10);
write(B[i], );
end;
for i := 1 to 10 do
if B[i] mod 3 = 0 then begin
p := p + B[i];
if b[i] > max then max := b[i]
end;
writeln;
writeln(Сумма чисел кратных 3 = , p);
writeln(Максимальное число, кратное 3 = , max);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
