Вычислить сумму положительных и произведение отрицательных элементов массива написать программу в паскале

108

356

Посмотреть ответы 2

Ответы на вопрос:

shkuta03

Информатика

4,4(96 оценок)

var a: array [1..10] of integer;

s,s1,i: integer;

begin

s: =0;

s1: =1;

for i: =1 to 10 do

begin

readln(a[i]);

if a[i]> 0 then s: =s+a[i];

if a[i]< 0 then s1: =s1*a[i];

end;

writeln('сумма: ',s,', произведение: ',s1);

end.

RageTeenage

Информатика

4,8(45 оценок)

#include < iostream> using namespace std; int fib(int n) { if(n == 0) return 0; if(n == 1 || n == 2) return 1; return fib(n-1)+fib(n-2); } int main() { int n; cin > > n; int ans = 0; for (int i = 1; i < n; ++i) if (fib(i) > = n)break; else ans += fib(i); cout < < ans; }