#include <iostream>
#include <stdlib.h>
using namespace std;
int main()
{
int arr[10], sum = 0; // Создаём массив и переменную, в которой будет сумма
for (int i = 0; i < 10; i++) {
int r = rand() %11 - 5; // Генерация случайного числа в промежутке от [-5; 5]
arr[i] = r; // Присваем значение перменной
cout << arr[i] << " "; // Вывод массива.
}
cout << endl;
for (int i = 0; i < 10; i++) {
if (arr[i] > 0) {
sum += arr[i]; // sum = sum + arr[i]
}
}
cout << "Summa polozhitelnih: " << sum << endl;
return 0;
}
Более оптимальный
#include <iostream>
#include <stdlib.h>
using namespace std;
int main()
{
int arr[10], sum = 0; // Создаём массив и переменную, в которой будет сумма
for (int i = 0; i < 10; i++) {
int r = rand() %11 - 5; // Генерация случайного числа в промежутке от [-5; 5]
arr[i] = r; // Присваем значение перменной
cout << arr[i] << " "; // Вывод массива.
if (i == 9) { cout << endl;}
if (arr[i] > 0) {
sum += arr[i]; // sum = sum + arr[i]
}
}
cout << "Summa polozhitelnih: " << sum << endl;
return 0;
}
РОПОР и ТОПОР
Объяснение:
Представим что имеем дело с 4-ичной системой счисления { 0 - О, 1 - П, 2 - Р, 3 - Т }. В таком случае вышенаписанный ряд можно представить в такой виде:
1. (00000) = 0 в 10ичной СС
2. П (00001) = 1 в 10ичной СС
3. Р (00002) = 2 в 10ичной СС
4. Т (00003) = 3 в 10ичной СС
5. ОООПО (00010) = 4 в 10ичной СС
...
Исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.
1.
530 / 4 = 132 (2 остаток)
132 / 4 = 33 (0 остаток)
33 / 4 = 8 (1 остаток)
8 / 4 = 2 (0 остаток)
530(10) = 20102 (4)
Замена: РОПОР
2.
786 / 4 = 196 (2 остаток)
196 / 4 = 49 (0 остаток)
49 / 4 = 12 (1 остаток)
12 / 4 = 3 (0 остаток)
786(10) = 30102(4)
Замена: ТОПОР
//1
uses
GraphABC;
Var
a,h,x,y:integer;
c:char;
begin
writeln('Read or random? n/r');
repeat
readln(c);
until (c='n') or (c='r');
if c='r' then
begin
a:=random(200);
writeln('Длина ребра=',a,', Объём=',power(a,3));
end
else
begin
readln(a);
writeln('Объём=',power(a,3));
end;
x:=windowwidth div 2;
y:=round(windowheight*1/3);
line(x,y,x,y+a);
line(x+a,y,x+a,y+a);
line(x,y+a,x+a,y+a);
line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2);
line(x,y,x+a,y);
line(x+a div 2,y+a div 2,x+a div 2,y-a div 2);
line(x,y,x+a div 2, y-a div 2);
line(x,y+a,x+a div 2, y+a div 2);
line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2);
line(x+a div 2+a, y-a div 2,x+a,y);
line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a);
line(x+a div 2+a, y-a div 2+a,x+a,y+a);
end.
Пример ввода:
n
16
Пример вывода:
Объём=4096
//2
Var
X,P:integer;
beginwrite('X:');
readln(X);
write('P:');
readln(P);
if not(odd(X)) then writeln('Кратно 2');
if X mod 3=0 then writeln('Кратно 3');
if X mod P=0 then writeln('Кратно ',P);
end.
Пример ввода:
18
6
Пример вывода:
Кратно 2
Кратно 3
Кратно 6