составьте программу,которя заполняет массив а [-10..10] случайными целыми числами в диапозоне от -10 до 10 и вычисляет сумму модулей элементов массива с четными значениями.

1

Ответы и объяснения

2012-10-25T22:18:44+04:00

var

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

i, sum : integer;

begin

sum := 0;

for i:= -10 to 10 do

begin

a[i]:= random(21) - 10;

if (a[i] mod 2 = 0) then

sum: = sum + abs(a[i);

end;

writeln(sum);

end.

P.S. Нравится решение ? Отметь как лучшее!