C++
#include <iostream>
#include <ctime>
using namespace std;
void sort(int* arr, int size);
int main()
{
srand(time(0));
int size = 10;//Укажешь SIZE
int* arr = new int[size];
for (int i = 0; i < size; i++)
{
arr[i] = 1 + rand() % 50;
cout << arr[i] << " ";
}
sort(arr, size);
cout << endl << endl;
for (int i = 0; i < size; i++)
{
cout << arr[i] << " ";
}
return 0;
}
void sort(int* arr, int size)
{
int temp = 1;
for (int i = 0; i < size; i++)
{
for (int j = 0; j < size; j++)
{
if (arr[i] < arr[j])
{
temp = arr[j];
arr[j] = arr[i];
arr[i] = temp;
}
}
}
}
Объяснение:
array = [3, 6, -2, 7, -5, -6, 8, 16, 64, 23, -45, 24, 15, 3, 5]
sum1 = 0
dob = 1
index1 = 0
index2 = 0
index3 = 0
sum2 = 0
for i in range(len(array)):
if array[i] < 13:
sum1 = sum1 + array[i]
if array[i] > 0:
dob = dob * array[i]
index1 = index1 + 1
sum2 = sum2 + (array[i] * array[i])
if array[i] < 0:
index2 = index2 + 1
if array[i] % 2 != 0:
index3 = index3 + 1
print("Сума елементів масиву, які менші за 13: " + str(sum1))
print("Добуток додатніх елементів масиву: " + str(dob))
print("Кількість додатніх елементів масиву: " + str(index1))
print("Кількість від\'ємних елементів масиву: " + str(index2))
print("Кількість непарних елементів масиву: " + str(index3))
print("Квадрат суми непарних елементів масиву: " + str(sum2))
Поделитесь своими знаниями, ответьте на вопрос:
Народ решить тест. Во При какой форме записи цикл обрабатывает переменные от большего значения к меньшему for x := n to m do for x := n downto m do for x := n to m did Во Определите цикл, котрый отработает 5 раз for x := 2 to 5 do for x := -2 to 2 do for x := 5 to 10 do for x := 5 to 1 do for x := 0 to 5 do for x := 10 downto 5 do Во Как будет выводиться ответ при использовании процедуры write? в столбик в строчку не будет вывода Во Как записывается процедура ввода данных с клавитауры? write real read Во Какой ответ будет выведен после выполнения цикла: for x := 1 to 8 do if x mod 7 = 0 then x := x + 1; Введите ответ: Во Какой ответ будет выведен после выполнения цикла: S := 0; for x := 1 to 10 do if x mod 3 = 0 then S := S + x;
Відповідь:
1) for x := n downto m do
2) for x := -2 to 2 do
3) в строчку
4) read
5) [Pascal Error] Unit1.pas(154): E2081 Assignment to FOR-Loop variable 'x'
6) 18
Пояснення:
6) сума чисел , кратних 3, = 3 + 6 + 9