program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type t=array [1..100] of real;

procedure tab (dx:real; var a:t; var n:integer);
var i:integer; x:real;
begin
x:=0;
i:=0;
while x<2 do
Begin
inc(i);
x:=x+dx;
a[i]:=exp(x)/x;
end;
n:=i;
end;

function min(a:t;n:integer):real;
var i:integer; m:real;
begin m:=a[1];
for i:=2 to n do
if a[i] m:=a[i];
min:=m;
end;

var dx:real;a:t; n,p:integer;
begin
writeln('vvedite shag');
readln(dx);
tab(dx,a,n);
writeln('min znachenie: ',min (a,n));
for p:=1 to n do
writeln(a[p]);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.