Задать вопрос
11 апреля, 04:26

Вычислить сумму положительных чисел массива.

Написать программу в Pascal.

+4
Ответы (1)
  1. 11 апреля, 06:32
    0
    Program summ_pol_chicel; var a: array [-100 ... 100] of integer; i, b: integer; beginFor i:=1 to 10 do Readln (a[i]) ; b : = 0; For i:=1 to 10 dobegin if a[i] > 0 then b : = b + a[i]; end; writeln (b) ; end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Вычислить сумму положительных чисел массива. Написать программу в Pascal. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы