Я не знаю, как тебе это расписать здесь. Подсказка: посторой таблицу истиности, по ней поймёшь всё.
Решение смотри во вложении.
А)входящ.
количество влаги в почве
количество воздуха в почве
темпиратура почвы
темпиратура воздуха
выходящ.
время созревания
цвет лука
вкус лука
Если правильно поняла задачу, на паскале это выглядит так:
var n,b,i,a,c:integer;
begin
writeln('input n'); readln(n);
writeln('input a'); readln(a);
c:=a;
for i:=1 to n do
begin
writeln('input b',i);
readln(b);
c:=c-b;
end;
writeln('c=',c);
<span>end.
Алгоритм и блок-схема по имеющейся программе делаются элементарно. </span>