#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;
}

0 0

4 года назад

Решите все с 6 по 9, дам все баллы

rebell [112]

a=10

b=30

a = (30 mod 7) div 2 = 2 div 2 = 1

Ответ: a = 1

в)

y = 5+5*1+5*2+5*3 = 5+5+10+15 = 35

Ответ: 35

143 = 128+8+4+2+1 = 10001111(2)

0 0

4 года назад

Помогите , пожалyйста , заранее спасибо , в Pascal ABC , простенькyю , не очень сложнyю. 1. Напишите программy , которая 5 раз в

Валентина Сохань

1)
Program n1;
var i: integer;
begin
for i:=1 to 5 do writeln('Иван Иванов');
end.
2)
Program n2;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln(sum);
end.
3)
Program n3;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i*i;
writeln(sum);
end.
4)
Program n4;
var a: integer;
begin
readln(a);
while a<>0 do readln(a);
end.

0 0

4 года назад