#include <iostream>
using namespace std;
int main()
{
int X[10];
long int sum = 0, prod = 1;
int k = 0;
for (int i = 0; i < 10; i++)
{
cout << "X[" << i << "] = ";
cin >> X[i];
if (X[i] < 0) sum += X[i];
if (X[i] != 0) prod *= X[i];
if (X[i] > 0) k++;
}
cout << "Сумма отрицательных = " << sum << endl;
cout << "Количество положительных = " << k << endl;
cout << "Произведение ненулевых = " << prod << endl;
//system("pause");
return 0;
}
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
Print('Количество неудовлетворительных');
a.Count(p -> p < 5).Println;
if a.Any(p -> p = 10) then
Println('YES')
else
Println('NO')
end.
Texture.bmp ну точечный рисунок , ну или просто фото в формате .bmp
Foto.doc документ Word?? Вроде это я так понял
Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное