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

Question

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

Answer 1

Составил в pascal


program mas;
var i,j:integer; a:array [1..10] of integer;
begin
randomize;
for i=1 to 10 do  
begin
a[i]:=random(10);
end;
for i=2 to 10 do
begin
j:=j+a[i];
i:=i+1;
end;
writeln(j);
readln;
end.