1. Составить программу для нахождения произведения чисел от 1 до 152. Дан массив целых чисел. Найти Max элемент
1. Составить программу для нахождения произведения чисел от 1 до 15
2. Дан массив целых чисел. Найти Max элемент
Гость
Ответ(ы) на вопрос:
Гостьprogram Prod15;
var
p: int64;
i: integer;
begin
p := 1;
for i := 2 to 15 do p := p * i;
writeln('Произведение целых от 1 до 15 равно ', p)
end.
Тестовое решение:
Произведение целых от 1 до 15 равно 1307674368000
program emax;
const
n = 20;
var
i, amax: integer;
a: array[1..n] of integer;
begin
amax := -32768;
writeln('Введите 20 целых чисел');
for i := 1 to 20 do
begin
read(a[i]);
if amax < a[i] then amax := a[i]
end;
writeln('Максимальное из чисел равно ', amax)
end.
Тестовое решение:
Введите 20 целых чисел
-5 12 0 34 26 -77 11 0 34 -23 7 0 -14 -8 34 -15 27 0 -45 23
Максимальное из чисел равно 34
Гость1./////////////////////////////////
#include
using namespace std;
int fact(int a)
{
if(a==1) return 1;
return fact(a-1)*a;
}
int main()
{
cout << fact(15);
}
2./////////////////////////////////
#include
#include
#include
using namespace std;
int main()
{
srand(time(NULL));
const int n = 10;
int mass[n];
int max;
for(int i=0; i
Не нашли ответ?
Похожие вопросы