Массивы

[deekey063]

Помогите составить программу, в массиве мало что понимаю как делать , так вот, суть задания, надо составить программу , которая состояла из n вещественных элементов и вычислить ( одномерный массив ) 1) минимальный элемент массива 2)Сумму элементов массива ,расположенных между первыми и последними положительными элементами 3)Сделать так, чтобы с самого начала все элементы располагались равные нулю, а потом - все остальные

[abit]

Сообщение от deekey063

Помогите составить программу, в массиве мало что понимаю как делать , так вот, суть задания, надо составить программу , которая состояла из n вещественных элементов и вычислить ( одномерный массив ) 1) минимальный элемент массива 2)Сумму элементов массива ,расположенных между первыми и последними положительными элементами 3)Сделать так, чтобы с самого начала все элементы располагались равные нулю, а потом - все остальные

понять твоё задание очень сложно, что значит вообще эта комбинация букв : " надо составить программу , которая состояла из n вещественных элементов"... это чуть более, чем полностью бред, из всего что я разобрал смог составить такую программу (1-2 пункт задачи и то не уверен, что правильно понял):

var
  Mas:array of double;
  i,n:dword;
  sign:shortint;
  min:double;
  firstp, lastp:dword;
  Sum:double;
begin
  Write('Введите размер массива : '); Readln(n);
  SetLength(Mas,n);
  {заполняем массив случайными вещественными числами}
  for i:=0 to n-1 do
  begin
   if (random(2)=0) then sign:=-1 else sign:=1;
   Mas[i]:=sign*random(1000)/(random(100)+1e-1);
  end;
  writeln('Сгенерированные числа :');
  for i:=0 to n-1 do write(Mas[i]:8:5,' ');
  writeln;

  {находим минимальный элемент}
  min:=Mas[0];
  for i:=0 to n-1 do if Mas[i]<min then min:=Mas[i];
  Writeln('Минимальный элемент = ',min:8:5);

  {находим первый положительный элемент}
  firstp:=0;
  for i:=1 to n-1 do if Mas[i]>0 then begin firstp:=i; break; end;

  {находим последний положительный элемент}
  lastp:=n-1;
  for i:=n-2 downto 0 do if Mas[i]>0 then begin lastp:=i; break; end;

  {находим сумму элементов между ними}
  Sum:=0;
   for i:=firstp+1 to lastp-1 do Sum:=Sum+Mas[i];
  Writeln('Сумма  чисел между первым и последним положительным элементом = ',Sum:8:5);

  Readln;     
end.

[deekey063]

Сообщение от abit

понять твоё задание очень сложно, что значит вообще эта комбинация букв : " надо составить программу , которая состояла из n вещественных элементов"... это чуть более, чем полностью бред, из всего что я разобрал смог составить такую программу (1-2 пункт задачи и то не уверен, что правильно понял):

var
  Mas:array of double;
  i,n:dword;
  sign:shortint;
  min:double;
  firstp, lastp:dword;
  Sum:double;
begin
  Write('Введите размер массива : '); Readln(n);
  SetLength(Mas,n);
  {заполняем массив случайными вещественными числами}
  for i:=0 to n-1 do
  begin
   if (random(2)=0) then sign:=-1 else sign:=1;
   Mas[i]:=sign*random(1000)/(random(100)+1e-1);
  end;
  writeln('Сгенерированные числа :');
  for i:=0 to n-1 do write(Mas[i]:8:5,' ');
  writeln;

  {находим минимальный элемент}
  min:=Mas[0];
  for i:=0 to n-1 do if Mas[i]<min then min:=Mas[i];
  Writeln('Минимальный элемент = ',min:8:5);

  {находим первый положительный элемент}
  firstp:=0;
  for i:=1 to n-1 do if Mas[i]>0 then begin firstp:=i; break; end;

  {находим последний положительный элемент}
  lastp:=n-1;
  for i:=n-2 downto 0 do if Mas[i]>0 then begin lastp:=i; break; end;

  {находим сумму элементов между ними}
  Sum:=0;
   for i:=firstp+1 to lastp-1 do Sum:=Sum+Mas[i];
  Writeln('Сумма  чисел между первым и последним положительным элементом = ',Sum:8:5);

  Readln;     
end.

Вот такое задание, переписал в точности, просто сам вообще ничего не понимаю в массивах. Спасибо большое за помощь