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

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

Задать свой вопрос
2 ответа

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

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

begin

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

 a.Println;

 a.Where(t -gt; t gt;= 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

Лидия Игонтова
а когда надобно делать много операций с числами она может работать больше секунды
Maksim Maesh
Современный ПК делает приблизительно 10 млн операций в секунду. Это насколько же криво нужно составить метод, чтоб для школьной задачи выполнить больше 10 мнл вычислений?
Кутяев Семён
Но если Для вас занимательно более досконально об этом побеседовать, можно продолжить в ЛС.
Kirill Neskubo
ЛС это что?
Илюшка
Собственные Извещения.
Олег Зеф
но чат же закрыли
Бахапев Леонид
чтоб через переписки не делились ответами
Роман Иллюк
тоесть публиковали вопрос и его решали
Марина Данюк
Доступен, если Вы дали от 1000 решений. Либо, если кто-то смог написать Для вас.
Славян
жаль но у меня только 261 решение

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]gt;=10) then z:=z+a[i];

end;

writeln;

write(z);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт