Масивы Опции

[Nox]

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

[AlaRic]

Урок 11 http://pascal.dax.ru/?lessons&id=1&page=11

[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 18:32

[APAL]

Помогите пожалуста как написать ету прогу без масивов
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.

Ну например так:

Код

Var m,min : real;
      i         : Byte;
Begin
  writeln('Введите 10 чисел');
   for i:=1 to 10 do
   Begin
     read(m);
     if i=1 then min:=m else
       If m<min then min:=m;
   End;
   writeln('Равно: ',round(min));
   Readln;
End.

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

[nonename13]

Задача по уроку 14.
Мигающие огни по прямоугольнику 40 на 10.
Помогите с рисованием правого столбца, а то он не меняется по одному символу, а моргает весь.  :-/ Надеюсь, понятоно.