Дан массив целых чисел А(25). Составить программу для вычисления суммы элементов массива,...

Question

Дан массив целых чисел А(25). Составить программу для вычисления суммы элементов массива, которые не меньше 10.

Answer 1

PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(25, -15, 50);

 a.Println;

 a.Where(t -> t >= 10).Sum.Println

end.

Пример

-13 27 20 48 17 33 -6 36 12 48 -13 1 45 12 31 7 45 35 42 3 26 -10 48 27 34

586

Comments

а когда надо делать много операций с числами она может работать больше секунды

---

Современный ПК делает примерно 10 млн операций в секунду. Это насколько же криво нужно составить алгоритм, чтобы для школьной задачки выполнить больше 10 мнл вычислений?

---

Но если Вам интересно более подробно об этом поговорить, можно продолжить в ЛС.

---

ЛС это что?

---

Личные Сообщения.

---

но чат же закрыли

---

чтобы через переписки не делились ответами

---

тоесть публиковали вопрос и его решали

---

Доступен, если Вы дали от 1000 решений. Или, если кто-то смог написать Вам.

---

жаль но у меня только 261 решение

Answer 2

var a:array[1..25] of integer;

i,z:integer;

begin

for i:=1 to 25 do

begin

a[i]:=random(50);

write(a[i],' ');

if (a[i]>=10) then z:=z+a[i];

end;

writeln;

write(z);

end.