Question

Найти произведение элементов массива кратных 3 и не кратных 5 Написать код с командами Constant,Type, Procedure Pascal​

Answer 1

Ответ:

Constant n = 10; // размер массива

Type TArray = array[1..n] of integer;

Procedure Multiply(arr: TArray);

var

i: integer;

result: integer;

begin

result := 1;

for i := 1 to n do

begin

if (arr[i] mod 3 = 0) and (arr[i] mod 5 <> 0) then

result := result * arr[i];

end;

writeln('The result is: ', result);

end;

// Пример использования процедуры Multiply

var

myArray: TArray;

i: integer;

begin

// Заполнение массива случайными значениями

for i := 1 to n do

begin

myArray[i] := random(100); // генерация случайного числа от 0 до 99

write(myArray[i], ' ');

end;

writeln;

Multiply(myArray);

end.

Answer 2

Ответ:

const

 MAX_SIZE = 100;

type

 TArray = array[1..MAX_SIZE] of Integer;

procedure MultiplyElements(arr: TArray; size: Integer; var result: Integer);

var

 i: Integer;

begin

 result := 1;

 for i := 1 to size do

 begin

   if (arr[i] mod 3 = 0) and (arr[i] mod 5 <> 0) then

     result := result * arr[i];

 end;

end;

Объяснение:

Код принимает массив целых чисел и его размер в качестве входных параметров и возвращает произведение элементов, кратных 3, а не 5 в переменной "результат".