Question

Паскаль АВС: В целочисленном массиве В[6] определить сумму положительных элементов делящихся на 3 без остатка и поставить её на место максимального элемента массива А[5].

Answer 1

Ответ:

uses crt;

var

 i,sum: integer;

 b: array[1..6] of integer;

begin

 clrscr;

for i := 1 to 6 do

   readln(b[i]);  

 for i := 1 to 6 do

   if (b[i] mod 3 = 0) then  

     sum := sum + b[i];

 b[5] := sum;

end.

///Не знаю, что выводить на экран, т. к. в условии об этом ничего не сказано.

Answer 2

Для выполнения данной задачи вам потребуется следующий алгоритм на языке Паскаль:

1. Найти сумму положительных элементов массива B[6], которые делятся на 3 без остатка.
2. Найти максимальный элемент массива A[5].
3. Заменить максимальный элемент массива A[5] найденной суммой из пункта 1.

Приведу пример решения на Паскале:

pascalCopy code
program Task;
var
  A: array[1..5] of Integer;
  B: array[1..6] of Integer;
  i, maxA, sumDivisibleBy3: Integer;

begin
  { Заполняем массив B[6] }
  for i := 1 to 6 do
  begin
    Write('Введите значение B[', i, ']: ');
    ReadLn(B[i]);
  end;

  { Находим сумму положительных элементов массива B[6], делящихся на 3 без остатка }
  sumDivisibleBy3 := 0;
  for i := 1 to 6 do
  begin
    if (B[i] > 0) and (B[i] mod 3 = 0) then
      sumDivisibleBy3 := sumDivisibleBy3 + B[i];
  end;

  { Находим максимальный элемент массива A[5] }
  maxA := A[1];
  for i := 2 to 5 do
  begin
    if A[i] > maxA then
      maxA := A[i];
  end;

  { Заменяем максимальный элемент массива A[5] найденной суммой }
  for i := 1 to 5 do
  begin
    if A[i] = maxA then
    begin
      A[i] := sumDivisibleBy3;
      Break; // Прерываем цикл после первой замены, чтобы не затрагивать другие элементы равные максимальному
    end;
  end;

  { Выводим получившийся массив A[5] }
  WriteLn('Массив A после замены:');
  for i := 1 to 5 do
  begin
    Write(A[i], ' ');
  end;

  ReadLn;
end.

Обратите внимание, что в данном примере предполагается, что пользователь будет вводить значения для массива B[6]. Для массива A[5] значения не заданы, поэтому предполагается, что они будут введены или инициализированы в коде до выполнения алгоритма.