Паскаль.
Нужно написать программу на паскале, вещественный тип обработки данных
Нахождения номера наименьшего наименьшего элемента в массиве заданной длины среди всех положительных элементов длина массива вводится с клавиатуры

ReWrite(Fout);writeln(Fout,'Isxodnyi massiv iz ',m,' elementov');for i:=1 to m dobeginwrite(Fout,A[i]:11);if i mod 5 = 0 then writeln(Fout);end;end;Close(Fout);END.

Много-много кода, вот честно скажу лень разбираться дотошно.. По первому взгляду, если позволите, несколько замечаний..

1. Вы создаёте статический массив размерность 50 элементов. Какое бы число вы не вводили в качестве размерности, на самом деле она не изменится. Однако если вы превысите размерность, например укажете 51, то на вводе 51-ого элемента вылетите с ошибкой "превышение границ массива".. скорее всего

2. Да и просто вводить руками 50 элементов, или сколько там требуется.. кошмар кромешный)

Так точно! спасибо!