Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементов массива.
10-11 класс
|
var
a:array[1..20] of integer;
sum,mul,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(100);
end;
sum:=0;
mul:=1;
for i:=1 to 20 do
begin
sum:=sum+a[1];
mul:=mul*a[1];
end;
writeln('Summa=',sum);
writeln('Multiply=',mul);
end.
Другие вопросы из категории
рублях. Программа должна напечатать эту сумму прописью.
Пример: пятнадцать рублей.
философской концепции ее можно будет отнести?
Читайте также
1.Дано массив 5*5, заполнить массив случайными числами не больше 30 и найти сумму парных элементов массива, которые находятся под главной диагонали и количество не парных элементов которые находятся над главной диагонали.
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.