Question

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

Answer 1

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.

Answer 2

ответил там.

Answer 3

заполните массив N( N- целое число , вводиться с клавиатуры ) случайными целыми числами из промежутка [-10,10]. Выведите на экран элементы массива через 2 пробела .Вычислите среднее арифметическое неотрицательных элементов .

Answer 4

ещё вот

Answer 5

прости, сейчас времени нету. Как только приду от репетитора - сделаю.

Answer 6

хорошо , спасибо большое