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.