72

Составьте программу, которая формирует массив, содержащий 16 случайных чисел,…

26 мая 2023

Составьте программу, которая формирует массив, содержащий 16 случайных чисел, принадлежащих промежутку [-2; 3], и подсчитывает сумму отрицательныхчисел. Вывод в строку через запятую

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



45

Program Program1; vari,sum: integer; A: array [1… 16] of integer; beginrandomize; for i: =1 to 16 dobegina[i]: =random (6) -2; write (a[i],', '); end; sum: =0; for i: =1 to 16 doif a[i]<0 then sum: =sum+a[i]; writeln ('Сумма отрицательных чисел равна',sum); end.

Знаете ответ?


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