Масивы Опции

[Nox]

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

[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 14:33