Заполните массив 12 случайными целыми числами из промежутка [-10,10]. выведите на экран элементы массива через пробел .найдите сумму элементов массива , находящихся на четных позициях
Var x,s,sum,i:integer; mass:array[1..12] of integer; begin x:=0; sum:=0; for i:=1 to 12 do begin x:=x+1; s:=random(3); if (s mod 2)=0 then mass[i]:=random(11) else mass[i]:=-random(11); if (x mod 2)=0 then sum:=sum+mass[i]; write(mass[i]+' '); end; writeln(''); writeln('сумма чисел на четных местах = '+sum); end.
mass:array[1..12] of integer;
begin
x:=0;
sum:=0;
for i:=1 to 12 do
begin
x:=x+1;
s:=random(3);
if (s mod 2)=0
then mass[i]:=random(11)
else mass[i]:=-random(11);
if (x mod 2)=0 then sum:=sum+mass[i];
write(mass[i]+' ');
end;
writeln('');
writeln('сумма чисел на четных местах = '+sum);
end.