59

Ребят, помогите, пожалуйста, очень срочно!

ibilyk 28 февраля 2023

Ребят, помогите, пожалуйста, очень срочно! Найти сумму положительных элементов массива а (15) ПАСКАЛЬ, 10 КЛАСС ШКОЛЬНЫЙ УРОВЕНЬ, БЕЗ ВСЯКИХОСЛОЖНЕНИЙ! СПАСИБО!

категория: информатика

58

Program Program1; Vara: array [1… 15] of integer; i,sum: integer; beginrandomize; for i: =1 to 15 dobegina[i]: =random (100) -50; writeln ('a['+inttostr (i)+']='+inttostr (a[i]); end; sum: =0; for i: =1 to 15 doif a[i]>0 then sum: =sum+a[i]; writeln ('Cумма положительных элементов массива='+inttostr (sum); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...