с программированием. Нужно написать программу по заданию, в которой будет ПОДПРОГРАММА и ОСНОВНАЯ ПРОГРАММА Я написала обычную программу, но не знаю как переделать ее под задание const N = 10; var a: array[1..N] of integer; i: integer; sr: real; sum: integer; begin randomize; for i:=1 to N do a[i]:=random(50)+1; sum := 0; for i:=1 to N do sum := sum + a[i]; sr:= sum/N; for i:=1 to N do write(a[i]:3); writeln; writeln('Среднее арифм.: ', sr:4:2); for i:=1 to N do if a[i]>sr then write(sr:4:2, ' ') else write(a[i], ' '); writeln; end.

program raf105;

var k,a,p,b,m,let:real;

begin

write('Площадь участка (га.): ');

readln(k);

write('Средняя урожайность с гектара (ц.): ');

readln(a);

write('Увеличение участка за год (% от площади): ');

readln(p);

write('Рост урожайности за год (% от урожайности): ');

readln(b);

write('Желаемый урожай (ц.): ');

readln(m);

while a < m do

begin

 k+= (k/100*p);

 a+= (a/100*b);

 let+= 1;

end;

writeln;

writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');

writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');

end.

Язык PascalABC