98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
А)входящ.
количество влаги в почве
количество воздуха в почве
темпиратура почвы
темпиратура воздуха
выходящ.
время созревания
цвет лука
вкус лука
Const
<span>n=20; </span>
<span>var a:array[1..n] of integer; </span>
<span>var i,d,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите число d'); </span>
<span>readln(d); </span>
<span>writeln('Введите массив'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod d = 0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end. </span>
Принцип открытой архитектуры
Все легко и просто. открой учебник и прочитай его все станет понятно)