Program mathlover12;
const
n = 50; {Количество элементов массива}
m = 50; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i,pp:integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем произведение элементов, меньших 25}
pp:=1;
for i:=1 to n do
if a[i]<25 then pp:=pp*a[i];
{Вывод}
writeln;
for i:=1 to n do
write(a[i],' ');
writeln; writeln;
writeln('Произведение элементов, меньших 25, равнo ',pp);
end.
{PascalABC.NET}
Program mathlover12;
const
n = 50; {Количество элементов массива}
m = 50; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
begin
var s:='**** -=Alphaeus=- ****';
for var i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for var i:=1 to n do a[i]:=random(m+1);
{Ищем произведение элементов, меньших 25}
var pp:=1;
for var i:=1 to n do
if a[i]<25 then pp:=pp*a[i];
{Вывод}
writeln; a.println; writeln;
writeln('Произведение элементов, меньших 25, равнo ',pp);
end.
![Вмассиве из n элементов, заданных случайным образом из промежутка [0; 50], найдите произведение всех](/tpl/images/0953/4246/ab889.jpg)
![Вмассиве из n элементов, заданных случайным образом из промежутка [0; 50], найдите произведение всех](/tpl/images/0953/4246/28882.jpg)
#include <iostream>
using std::cin;
using std::cout;
using std::endl;
void result(double N, double *otputM, double *otputH, double M = 2, double H = 12, double P = 50, double B = 2)
{
double one = M / 100 * 1;
P = one * P;
M = M + (P * N);
H = H + (B * N);
*otputM = M;
*otputH = H;
}
int main() {
setlocale(LC_ALL, "Russian"); //русский
double M; //население (тысяч. чел)
double H; //длина дорог (км)
double P; //процент увеличения населения (%)
double B; //увеличение дорог (км)
double N; //кол-во лет
double otputM = 0; //ответ людей
double otputH = 0; //ответ дорог
int input;
cout << "ВЫ хотите ввести M, H, P, B? \nВведите 1 - если хотите, 2 - если НЕ хотите: ";
cin >> input;
if(input == 2)
{
cout << "\nВведите N (кол-во лет) = ";
cin >> N;
result(N, &otputM, &otputH);
cout << "\nЧерез " << N << " лет: ";
cout << "\nКол-во людей = " << otputM << "\nДлина дорог = " << otputH;
}else if(input == 1)
{
cout << "\nВведите N (кол-во лет) = ";
cin >> N;
cout << "Введите M (население [тыс. чел.]) = ";
cin >> M;
cout << "Введите H (длина дорог [км]) = ";
cin >> H;
cout << "Введите P (процент увеличения населения [%]) = ";
cin >> P;
cout << "Введите B (увеличение дорог [км]) = ";
cin >> B;
result(N, &otputM, &otputH, M, H, P, B);
cout << "\nЧерез " << N << " лет: ";
cout << "\nКол-во людей = " << otputM << "\nДлина дорог = " << otputH;
}else
{
cout << "\nError!";
}
return 0;
}