Question

Создать массив А(10) из целых чисел в диапазоне [-31,18]. Вывести массив на экран. Подсчитать сумму элементов, кратных 5. Написать через процедуру в ABCPascal

Answer 1

Ответ:

var

a : array [1..10] of integer;

i : integer;

kratn : integer := 0;

begin

for i := 1 to 10 do

begin

a[i] := random(-31, 18);

writeln(a[i]);

if a[i] mod 5 = 0 then kratn := kratn + 1;

end;

writeln('Количество элементов, кратных 5 = ', kratn);

end.

Answer 2

Конечно, вот как вы можете это сделать через процедуру в ABCPascal:

pascalCopy code
program ArrayExample;

const
  N = 10; // Размер массива
  MinValue = -31;
  MaxValue = 18;

type
  IntArray = array[1..N] of Integer;

procedure FillArrayRandom(var arr: IntArray);
var
  i: Integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;
end;

procedure PrintArray(const arr: IntArray);
var
  i: Integer;
begin
  for i := 1 to N do
    Write(arr[i]:4);
  Writeln;
end;

function SumMultiplesOf5(const arr: IntArray): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to N do
    if arr[i] mod 5 = 0 then
      Result := Result + arr[i];
end;

var
  A: IntArray;
  sum: Integer;

begin
  FillArrayRandom(A);
  
  Writeln('Массив A:');
  PrintArray(A);
  
  sum := SumMultiplesOf5(A);
  Writeln('Сумма элементов, кратных 5:', sum);
end.

Пример выше создает массив из 10 случайных целых чисел в указанном диапазоне, выводит массив на экран и подсчитывает сумму элементов, кратных 5.