Question

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

Answer 1

program mas_krat5_proc;

const n=10;

type mas=array[1..n] of integer;

var a:mas;s:integer;

procedure zap;

var j:byte;

begin

writeln('Идет заполнение массива...');

for j:=1 to n do

a[j]:=random(50)-31;

end;

procedure viv;

var j:byte;

begin

writeln('Посмотрим, какие рандомные элементы в массиве в этот раз...');

for j:=1 to n do

writeln(j:2,') ',a[j]:3);

end;

procedure sum;

var j:byte;

begin

writeln('Сложим кратные 5 элементы...');

s:=0;

for j:=1 to n do

if (abs(a[j])mod 5=0)and(a[j]<>0) then

s:=s+a[j];

writeln('Получили сумму 》 ',s);

end;

begin

zap;

viv;

sum;

readln;

end.

Answer 2

Конечно, вот пример кода на ABCPascal, который создает массив, выводит его на экран и подсчитывает сумму элементов, кратных 5:

pascalCopy code
program ArrayOperations;

const
  N = 10;
  LowerBound = -31;
  UpperBound = 18;

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

procedure FillArrayRandomly(var arr: IntArray);
var
  i: Integer;
begin
  Randomize;
  for i := 1 to N do
    arr[i] := Random(UpperBound - LowerBound + 1) + LowerBound;
end;

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

function SumOfMultiplesOf5(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;
  sumOfMultiples: Integer;
begin
  FillArrayRandomly(A);
  PrintArray(A);
  
  sumOfMultiples := SumOfMultiplesOf5(A);
  Writeln('Sum of elements divisible by 5: ', sumOfMultiples);
end.

Сохраните этот код в файл с расширением ".pas" и запустите его в вашей среде разработки ABCPascal. Программа создаст массив, выведет его на экран и подсчитает сумму элементов, кратных 5.