Question

СРОЧНО!!!

Знайти суму додатних елементів масиву А[1..N]

S:=0;
For i:= 1 to N do
If A[i]> 0 Then S: S+A[i]:
For i:=1 to N do P := P*A[0];
к := 0; (лічильник елементів і
заданою властна/сто)
For i:=1 to N do
If A[i] > 0 Then K := K+1;

Answer 1

Ответ:

Объяснение:Код містить помилки. Для знаходження суми додатних елементів масиву потрібно змінити оператор ": " на "+=" в рядку 3. Також, в рядку 5 замість A[0] повинно бути A[i], щоб отримати добуток всіх елементів масиву.

Ось правильний код:

S:=0;

For i:=1 to N do

 If A[i]>0 Then S += A[i];

 

P := 1;

For i:=1 to N do

 P *= A[i];

 

K := 0;

For i:=1 to N do

 If A[i]>0 Then K += 1;

Ознакою додатності може бути більше за нуль (A[i] > 0), якщо необхідно включати до суми інші додатні числа. Наприклад, якщо потрібно включити числа, що дорівнюють нулю, можна змінити перший рядок на:

S := 0;

For i:=1 to N do

 If A[i] >= 0 Then S += A[i];

Цей код буде рахувати суму всіх не від'ємних елементів масиву.