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

Question

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

Comments

язык?

---

pascal ABC

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.

Comments

авс

---

темку создай новую, что бы я баллы хоть получил :D Это не сделает меня богаче, но мне будет приятно. Задачу сделаю. Пока создай тему и ссылку сюда в комментарии кинь.

---

var x,i:integer;
mass:array[1..15]of integer;
begin
randomize;
x:=0;
for i:=1 to 15 do
begin
mass[i]:=random(20)+1;
if mass[i]=3 then x:=x+1;
write(mass[i]+' ');
end;
writeln('');
writeln('количество элементов равных трем = '+x);
end.

---

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

---

я создал , можете зайти в раздел информатика , там есть 20 баллов

---

ответил там.

---

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

---

ещё вот

---

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

---

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