Дан некоторый числовой массив. Надо найти сумму положительных элементов этого числового массива.

Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Pascal:

 Program P1;  

uses crt;  

const n=5;  

type mas=array [1..n] of real;  

var i: integer;  

    m: mas;  

    s: real;  

begin  

clrscr;  

s:=0;  

writeln ('Введите с клавиатуры массив (только числа, по 1 числу), после ввода каждого элемента массива (числа) нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');  

for i:=1 to n do begin  

    write ('Введите ', i, '-й элемент массива: ');  

    readln (m[i]);  

    end;  

for i:=1 to n do if m[i]>0 then s:=s+m[i];  

if s=0 then writeln ('В массиве нет положительных элементов.') else writeln ('Сумма положительных элементов массива составляет: ', s :0:2);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

Вот на Python:

 print ("Введите с клавиатуры размерность массива и сам массив (только числа, по 1 числу), после ввода каждого элемента массива (числа) нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.") 

n=int (input (f"Введите размерность массива (количество элементов) (Внимание: целое число, без дробных значений): ")) 

if n0: 

            s=s+m[i] 

    if s==0: 

        print (f"В массиве нет положительных элементов.") 

    else: 

        print (f"Сумма положительных элементов массива составляет: {s}") 

Вот на C++:

 #include  

using namespace std; 

int main() 

{ 

    setlocale (LC_ALL, "RUS"); 

    int i, n; 

    float m [n], s; 

    s=0; 

    cout

А вот и на PascalABC ( как просят! , но с ДСЧ :)))


const Max = 1000;
var N, Sum, Ran : integer;
A : array [1..Max] of integer;
begin
Sum := 0;
Write (' Введите количество элементов массива N = '); ReadLn (N);
Write (' Числовой массив: ');
for var i := 1 to N do
begin
Ran := - 20 + Random (40); A[i] := Ran;
Write ( A[i]:5);
if Ran > 0 then Sum := Sum + Ran;
end; WriteLn;
if Sum > 0 then WriteLn (' Сумма положительных элементов = ', Sum)
else WriteLn (' Положительных элементов нет...') ;
end.

19 сумма Только я не поняла почему он некоторый?

А надо то что: код , блок схема, ответ?