Задать вопрос
20 апреля, 01:36

Найти сумму положительных элементов в массиве. Использовать процедуру для ввода элементов массива и функцию для подсчета суммы. (решить в паскале)

+4
Ответы (1)
  1. 20 апреля, 02:52
    0
    Const n=20;

    type ar=array[1 ... n] of integer;

    procedure p1 (var a:ar) ;

    var i:integer;

    begin

    for i:=1 to n do begin

    a[i]:=random (11) - 5;

    write (a[i],' ') ;

    end;

    writeln;

    end;

    function sum (var a:ar) : integer;

    var s, i:integer;

    begin

    s:=0;

    for i:=1 to n do

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

    sum:=s;

    end;

    var a:ar; p:real;

    begin

    Randomize;

    p1 (a) ;

    writeln ('s = ', sum (a)) ;

    end.

    Пример:

    2 - 4 - 1 3 - 2 - 5 - 1 5 - 5 2 - 1 3 3 - 4 0 4 2 - 1 - 4 - 4

    s = 24
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти сумму положительных элементов в массиве. Использовать процедуру для ввода элементов массива и функцию для подсчета суммы. (решить в ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы