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

226

285

Посмотреть ответы 2

Ответы на вопрос:

валера344

Информатика

4,8(59 оценок)

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.