Задать вопрос
30 октября, 23:38

Найти сумму положительных элементов линейного массива целых чисел на языке програмирования Паскаль

в начале программы объявляются целые переменные sum и одномерный массив целых чисел m: array [1 ... 10] of integer.

+1
Ответы (1)
  1. 31 октября, 00:28
    0
    Program al;

    const n=10;

    var i, sum:integer;

    m:array[1 ... n] of integer;

    begin

    writeln ('wwedite massiv=') ;

    for i:=1 to n do

    readln (m[i]) ;

    sum:=0;

    for i: = 1 to n do

    if m[i]>0 then

    sum:=sum+m[i];

    writeln ('sum=', sum) ;

    readln;

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