Масивы Опции

[Nox]

Ладно извените.Пожалусто обясните что такое масивы?
???

[Nox]

Помогите пожалуста как написать ету прогу без масивов

Код

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.

Сообщение отредактировано: volvo - 17.12.2004 14:32