Помогите пожалуста как написать ету прогу без масивов
Код
Program A;
uses crt;
var
a:array[1..10] of real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do read(a[i]);
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:=a[i];
writeln('Равно: ',round(min));
readkey
end.
И еще посмотрите по етой ссылке
http://home.interstar.com.ua/~music/Zadacha_Paskal.htm задания и проверте правельно рещена задача
Код
Program b;
var
a,f:real;
begin
writeln(‘Введите a и x’);
readln(a,x);
if a>=2 then
f:=exp(6*ln(x))-a;
else
if (a>0) and (a<2) then
f:=2ax+abs(a-1);
else
if a<=0 then
f:=sqrt(f);
writeln(‘f =’,f);
end.