1. Визначити суму додатних елементів в масиві A(1..M). .
2. Скласти програму підрахунку кількості елементів в масиві A(1..М,1..N) менших 3.
В паскалі
Ответы
Ответ:
Объяснение:Для визначення суми додатних елементів в масиві A(1..M) в Паскалі можна скористатися наступним алгоритмом:
Оголосити змінну sum, яка буде містити суму додатних елементів та ініціалізувати її значенням 0.
Пройтися по всіх елементах масиву A(1..M) за допомогою циклу for.
Перевірити, чи є поточний елемент додатним. Якщо так, то додати його значення до змінної sum.
Після проходження всіх елементів масиву вивести значення змінної sum.
Наприклад, у Паскалі алгоритм знаходження суми додатних елементів масиву може виглядати так:
var
A: array[1..M] of Integer; // оголошення масиву A
sum, i: Integer; // оголошення змінних
begin
sum := 0; // ініціалізація змінної sum
// проходження по всіх елементах масиву A
for i := 1 to M do
begin
// перевірка, чи є поточний елемент додатним
if A[i] > 0 then
begin
sum := sum + A[i]; // додавання значення елемента до суми
end;
end;
writeln('Сума додатних елементів масиву: ', sum); // виведення суми
end.
Отже, для визначення суми додатних елементів в масиві A(1..M) в Паскалі потрібно пройтися по всіх елементах масиву та додати значення додатних елементів до змінної, яка буде містити суму.