Заполните массив 12 случайными целыми числами из промежутка [-10,10]. Выведите на экран элементы массива через пробел .Найдите сумму элементов массива , находящихся на четных позициях

Заполните массив 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы