Question

Доработайте пожалуйста,не могу написать,чтобы выводил наибольшее число,которое кратно 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.

Answer 1

Конечно! Я могу помочь вам с этим кодом. Вот доработанный код, который выводит наибольшее число, кратное 3, из линейного массива:

Program b11;
Var
  i, p, maxNum: integer;
  B: array [1..10] of integer;
Begin
  randomize;
  p := 0;
  maxNum := -1; // Инициализируем переменную maxNum отрицательным числом
  
  for i := 1 to 10 do
  begin
    B[i] := random(10);
    write(B[i], ' ');
    
    // Находим наибольшее число, кратное 3
    if (B[i] mod 3 = 0) and (B[i] > maxNum) then
      maxNum := B[i];
  end;
  
  writeln;
  
  if maxNum <> -1 then
    writeln('Наибольшее число, кратное 3:', maxNum)
  else
    writeln('В массиве нет чисел, кратных 3');
    
  readln;
end.

В этой версии кода я добавил переменную `maxNum`, которая инициализируется отрицательным числом `-1`. Затем в цикле `for` проверяем, является ли текущее число `B[i]` кратным 3 и больше, чем `maxNum`. Если это так, то обновляем `maxNum` значением `B[i]`. По окончании цикла проверяем, было ли найдено число, кратное 3. Если да, то выводим его значение, в противном случае выводим сообщение о том, что в массиве нет чисел, кратных 3.

Теперь программа будет выводить наибольшее число, кратное 3, из линейного массива.