Составьте программу,которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел,не превышающих 10
alsutil
1
01.03.2019 06:40
5
Другие вопросы по теме Информатика
dariamaniakova
28.10.2020 14:18
МАРИЯpahal
12.03.2019 09:55
Лерой04
12.03.2019 09:56
dashatieriesanp06obv
12.03.2019 09:57
mavimkolosov66
12.03.2019 09:58
CEVA55555
12.03.2019 09:59
alinashakeeva
06.06.2019 15:00
Dimafdj
06.06.2019 15:00
макс3013
21.06.2019 20:00
Популярные вопросы
- Местоимение это существительное или нет...
2 - Найти предложение на слов пение и птицы...
1 - Решить для ремонта купили 42 упаковки гвоздей .из них 1/3 часть - длинной...
3 - 1. “you look slimmer.” “yes, i 12 kilos”. a. lost b. have been losing...
1 - Решите пример по действиям. а) (21,2544: 0,9+1,02*3,2): 5,6=? вместо...
3 - Составьте уравнение уменьшаемое 5000, вычитаемое - сумма неизвестного...
3 - Какая из перечисленных дат имеет отношение к борьбы народа с иноземными...
1 - Составить кроссворд по рассказу васюткино озеро...
2 - Биылғы қызық оқиғалар тықырыбына әңгіме құра.әңгімеде үстейлерді пайдалан...
1 - Решите 1)раскройте скобки и подобные слагаемые 4*(2,5а-+7) 2)составте...
3
program pr;
var mas:array[1..40] of integer;
i, sum:integer;
begin
randomize;
for i:=1 to 40 do mas[i]:=random(20);
for i:=1 to 40 do if mas[i]<=10 then sum:=sum+mas[i];
writeln ('сумма равна ', sum);
readln;
end.
Программу проверил все работает