составьте программу которая формирует массив из 40 случайных целых чисел то 0 до 20 и вычисляет сумму чисел не привышающих 10
5-9 класс
|
var
a: array[1..40] of integer;
i, sum: integer;
begin
sum := 0;
for i:=1 to 40 do
begin
a[i]:= random(21);
if a[i] <= 10
sum:= sum + a[i]
end;
writeln (sum);
end.
Другие вопросы из категории
1. Сначала вторая строка пуста
2.Затем каждый символ первой строки от первого до последнего приписывается к создаваемой(второй) строке слева , если это гласная буква и ее позиция в исходной строке была нечетной , или если это согласная буква и ее позиция была четной. Во всех остальных случаях очередной символ первой строки приписывается ко второй строке справа . По этому алгоритму строка ВОЦА превратилась в строку ОВЦА .
А какая строка превратилась в строку ИНАВОРИГОРПРАМЕ ??
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
а) среднее арифметическое нечётных чисел
Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет их сумму
>б) сумму чисел, не превышающих 10
в) сумму чисел, кратных трём
плииз, каждую задачу отдельно.. если не уверенны не пишите.. срочно!!