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];

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

Answer 2

Перший фрагмент коду обчислює суму додатних елементів масиву А.

Змінна S ініціалізується нулем. Потім, в циклі for проходиться по всіх елементах масиву А. Якщо поточний елемент A[i] є додатним, то до змінної S додається значення цього елементу.

Другий фрагмент коду обчислює добуток всіх елементів масиву А[1..N].

Змінна P ініціалізується одиницею. Потім, в циклі for проходиться по всіх елементах масиву А. Значення поточного елементу A[i] помножується на змінну P.

Третій фрагмент коду обчислює кількість додатних елементів масиву А.

Змінна K ініціалізується нулем. Потім, в циклі for проходиться по всіх елементах масиву А. Якщо поточний елемент A[i] є додатним, то змінна K збільшується на одиницю.

Таким чином, перший фрагмент коду знаходить суму додатних елементів масиву А, другий фрагмент коду обчислює добуток всіх елементів масиву А, а третій фрагмент коду знаходить кількість додатних елементів масиву А.