Предмет: Информатика,
автор: Himyamymya
Дан массив целых чисел А(25).
Составить программу для вычисления суммы
элементов массива, которые
не меньше 10.
Ответы
Автор ответа:
4
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
pryhodzichdavid:
а когда надо делать много операций с числами она может работать больше секунды
Современный ПК делает примерно 10 млн операций в секунду. Это насколько же криво нужно составить алгоритм, чтобы для школьной задачки выполнить больше 10 мнл вычислений?
Но если Вам интересно более подробно об этом поговорить, можно продолжить в ЛС.
ЛС это что?
Личные Сообщения.
но чат же закрыли
чтобы через переписки не делились ответами
тоесть публиковали вопрос и его решали
Доступен, если Вы дали от 1000 решений. Или, если кто-то смог написать Вам.
жаль но у меня только 261 решение
Автор ответа:
7
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.
Интересные вопросы
Предмет: Обществознание,
автор: solohij
Предмет: Алгебра,
автор: kudinovaa068
Предмет: Английский язык,
автор: rudkoanastasia111
Предмет: География,
автор: TiMkA1111121121212