program raf105;
const
n = 10;
var
a:array[1..n] of integer;
i,min:integer;
begin
min:= 10000;
writeln('Вводите числа по очереди');
for i:=1 to n do
begin
readln(a[i]);
if (i>1) and (i<n) and(a[i-1]>a[i]) and (a[i+1]>a[i]) and (a[i]<min)
then min:= a[i];
end;
if min= 10000
then min:= 0;
writeln('Самая глубокая яма: ',min);
end.
2.program raf105;
const
n = 10;
var
a:array[1..n] of integer;
i,o:integer;
begin
writeln('Вводите числа по очереди');
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
begin
if (a[i]*a[i+1]>0) and (((a[i]+a[i+1]) mod 7)=0)
then o+=1;
end;
writeln('Вывод: ',o);
end.
3.program raf105;
var
s1,s2,s3:string;
i,j,o:integer;
begin
writeln('Введите первую строку:');
readln(s1);
writeln('Введите вторую строку:');
readln(s2);
s3:=s2;
o:= pos(s1,s2);
if o>0
then
begin
delete(s3,o,length(s1));
s3+= s1;
end
else s3:='В строке "' + s2 + '" не найдено строки "' + s1 + '"';
writeln(s3);
end.
Язык PascalABC
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