58

1. Найти произведение положительных элементов массива A (16), удовлетворяющих…

04 марта 2023

1. Найти произведение положительных элементов массива A (16), удовлетворяющих условию: с <= Ai <= d.

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



91

var a: array [1… 16] of integer; i,s,c,d: integer; Begin randomize; read (c,d); for i: =1 to 16 do begin a[i]: =random (d+c) — c; if a[i]>0 then s: =s+a[i]; end; writeln (s); End.

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


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