Водномерном массиве а(10) найти значение и индекс наименьшего из положительных элементов .решение паскаль

Const  n = 10; var  i: byte;   min: real;   imin: integer;   a: array[1..n] of real; begin   writeln('введите числа');   for i : = 1 to n do     read(a[i]);   min : = a[1];   for i : = 2 to n do     if min > a[i] then min : = a[i];   for i : = 1 to n do     if a[i] = min then        imin : = i;   writeln('минимальное значение = ', min);   writeln('элемент = ', imin); end.

1. занести в пару смежных ячеек, например, по вертикали, начальное значение аргумента (х) и следующее за ним (т.е. нчальное плюс шаг). 2. выделить обе этих ячейки и мышью за правый нижний угол перетазить выделение вниз на нужное число ячеек так, чтобы в последней из ячеек появилось конечное значение аргумента х. 3. пусть (для определенности) начальное значение у нас находится в ячейке а1. тогда становимся в ячейку в1 и там пишем формулу =(a1^3-a1)*(a1^2+5) 4. после нажатия enter в в1 должно появиться значение функции, вычисленное для аргумента а1. 5. становимся мышью в правый нижний угол ячейки в1 и перетаскиваем курсор вниз, размножая формулу до строки с последним значением аргумента. во всех ячейках колонки в появятся вычисленные значения. 6. выделяем мышкой область от а1 до вхх - последней строки, содержащий значения функции. 6. щелкаем иконку мастера графиков. выбираем нужный вид графика, а дальше идем по шагам мастера, там все понятно написано. не забываем только отметить, что данные у нас в столбцах, столбец а надо взять для значений оси х, а график строить по данным из колонки в. 7. любуемся построенным графиком.

Uses crt; var a, b, c, i, n, j : integer;     s : array[1..10000] of integer; begin         clrscr;         writeln('введите размер массива');         read(n);         for i: =1 to n do              begin              s[i]: =random(46)-15;               writeln ('s[', i,']=', s[i]);               end;         a: =s[1]; for i: =1 to n do              if s[i]> a then                  begin                  a: =s[i];                 b: =i;                   end;         writeln ('наибольший элемент s[', b, ']=',a); end. p.s. надеюсь на и лучший ответ.