Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет :
5-9 класс
|
сумму чисел , кратных 3
На экран выводятся исходные значения и результаты вычислений
uses crt;
const n=40;
var a:array[1..n] of integer;
i,s: integer;
begin
s:=0;
randomize;
for i:=1 to n do
begin
a[i]:=random(20);
writeln(a[i]);
end;
for i:=1 to n do
if (a[i] mod 3=0) then s:=s+a[i];
writeln;
writeln(s);
end.
Другие вопросы из категории
Жене: Ты врун Женя- Сане:Оба они вруны Потом подумал и добавил:Да и ты тоже врун Кто из этих 4 гномов всегда говорит правду?
В некотором царстве-государстве повадился Змей
Горыныч разбойничать. Послал царь четырёх
богатырей погубить Змея, а награду за то обещал
великую. Вернулись богатыри с победой, и
спрашивает их царь: “Так кто же из вас главный
победитель, кому достанется царёва дочь и
полцарства?” Засмущались добры молодцы и
ответы дали туманные:
Сказал Илья Муромец: “Это все Алеша Попович,
царь-батюшка”.
Алеша Попович возразил: “То был Микула
Селянинович”.
Микула Селянинович: “Не прав Алеша, не я это”.
Добрыня Никитич: “И не я, батюшка”.
Подвернулась тут баба Яга и говорит царю: “А прав
то лишь один из богатырей, видела я всю битву
своими глазами”.
Кто же из богатырей победил Змея Горыныча?
10001 в двоичной системе счисления,В5 в шестнадцатеричной системе счисления, 73 в восьмеричной системе счисления, 87 в десятеричной системе счисления.
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
а) среднее арифметическое нечётных чисел
Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет их сумму
>б) сумму чисел, не превышающих 10
в) сумму чисел, кратных трём
плииз, каждую задачу отдельно.. если не уверенны не пишите.. срочно!!