Задание:
Ребят, помогите, пожалуйста, очень срочно! Найти сумму положительных элементов массива а (15) ПАСКАЛЬ, 10 КЛАСС ШКОЛЬНЫЙ УРОВЕНЬ, БЕЗ ВСЯКИХОСЛОЖНЕНИЙ! СПАСИБО!
Решение:
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.
Знаете другой ответ?