С++
int iMin, iNum, iAmountOfNumbers;
//
std::cout << "Enter the amount of numbers : " << std::endl;
std::cin >> iAmountOfNumbers;
std::cout << "Enter the first number" << std::endl;
std::cin >> iMin;
// Первый член последовательности устанавливается как минимальное значение
// Вводится число и сразу же сравнивается с минимальным
// Если вводимое число меньше минимального, то оно становится минимальным
do
{
std::cout << "Enter the next number" << std::endl;
std::cin >> iNum;
if (iNum < iMin) iMin = iNum;
iAmountOfNumbers--;
} while (iAmountOfNumbers > 1);
std::cout << "Min number : " << iMin << std::endl;
Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..30] of real; // Массива чисел
P:real; // Произведение чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
P:=1;
if(a[i]>P) then
P:=P*a[i];
writeln('P= ',P);
End.
Возможно я не так понял задание, но вот
С++
int iMin, iNum, iAmountOfNumbers;
//
std::cout << "Enter the amount of numbers : " << std::endl;
std::cin >> iAmountOfNumbers;
std::cout << "Enter the first number" << std::endl;
std::cin >> iMin;
// Первый член последовательности устанавливается как минимальное значение
// Вводится число и сразу же сравнивается с минимальным
// Если вводимое число меньше минимального, то оно становится минимальным
do
{
std::cout << "Enter the next number" << std::endl;
std::cin >> iNum;
if (iNum < iMin) iMin = iNum;
iAmountOfNumbers--;
} while (iAmountOfNumbers > 1);
std::cout << "Min number : " << iMin << std::endl;
Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..30] of real; // Массива чисел
P:real; // Произведение чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
P:=1;
for i:=1 to n do
if(a[i]>P) then
P:=P*a[i];
readln;
writeln('P= ',P);
End.
Возможно я не так понял задание, но вот