В данной программе при запуске надо ввести одно число.
После чего выводится 10 чисел от 9 до заданного не включительно.
Например, при вводе числа 20, выведутся числа от 10 до 19.
#include <iostream>
#include <time.h>
using namespace std;
int main ()
{
srand(time(NULL));
int a;
cin >> a;
for (int i=0; i<10; i++) {
cout << rand() \% (a-10) +10;
}
return 0;
}
954-459=495
100a+10b+c-100c-10b-a=99a-99c=99(a-c)
найдем все трехзначные что делятся на 99
198
297
396
495
594
693
792
891
990
и проверяем каждое
Для записи одного из семи значений требуется log(2)7 ≈ 3 бита.
Запись 120 значений: 120*3 = 360 бит = 360/8 байт = 45 байт
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.
<u>Пример</u>
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46
<u>№2</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23
<u>№3</u>
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.
<u>Пример</u>
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2
3 вариант ответа при загрузке операционной системы