Question

Дан целочисленный массив, состоящий из случайных целых чисел в диапазоне
[-1029; 1029]. Вывести массив и подсчитать сумму только
положительных элементов массива. Использовать подпрограммы для заполнения,
вывода, подсчета суммы элементов

Answer 1

Программа:

Pascal:

const N = 10;

var

arr: array[1..N] of integer;

j: integer;

 

procedure Zapolnenie(i: integer);

begin

  for i := 1 to N do arr[i] := random(-1029, 1029);

end;

 

procedure SummElements(i: integer);

begin

  for i := 1 to N do if arr[i] > 0 then j := j + arr[i];

end;

 

procedure output();

begin

  writeln('Масив: ', arr);

  writeln('Сумма положительных элементов в массиве: ', j);

end;

begin

 Zapolnenie(1);

 SummElements(1);

 output;

end.

Zapolnenie() - подпрограмма (процедура) заполнения массива случайными числами;

SummElements() - подпрограмма (процедура) вычисления суммы положительных элементов массива.

output() - подпрограмма (процедура) вывода массива и положительных элементов массива.