Помогите,пожалуйста 9 чисел выбрасываются случайным образом из отрезка от - 2 до 10....

Question

Помогите,пожалуйста
9 чисел выбрасываются случайным образом из отрезка от - 2 до 10. Подсчитать сумму чисел > 2 и вывести на экран.

Comments

Куда они выбрасываются?

---

Да ладно вам. Встречаются формулировки куда хуже

---

Но все же неплохо, когда пишущий с головой дружит!

---

Большинство задающих вопросы в этом разделе с компьютером (я уж не говорю о программировании) на "вы". Они вырастут и будут разбираться в какой-нибудь экономике, им не к чему Паскаль

---

А Паскаль тут не причем. Фраза по-русски глупо выглядит.

---

Они полагаются на нашу расшифровку)

---

Они просто пишут не думая. И не только в информатике.

---

вот и сейчас некто XameleonRus (см. задание) выставил задачу, у которой в такой формулировке объем выдачи может измеряться десятками тысяч строк.

Answer 1

Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
end.