с программированием. Нужно написать программу по заданию, в которой будет ПОДПРОГРАММА и ОСНОВНАЯ ПРОГРАММА Я написала обычную программу, но не знаю как переделать ее под задание 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.
Var a:array of integer; n,i,min,imin,max,imax:integer; begin write('n = '); readln(n); SetLength(a,n); for i:=0 to n-1 do begin a[i]:=random(51); write(a[i]:4); end; writeln; min:=a[0]; imin:=0; max:=a[0]; imax:=0; for i:=1 to n-1 do begin if a[i]<min then begin min:=a[i]; imin:=i; end; if a[i]>max then begin max:=a[i]; imax:=i; end end; writeln('min = ',min,' max = ',max); a[imin]:=max; a[imax]:=min; for i:=0 to n-1 do write(a[i]:4); writeln; end.
Пример: n = 10 33 17 33 49 3 2 14 25 35 47 min = 2 max = 49 33 17 33 2 3 49 14 25 35 47
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