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

Question

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

Answer 1

Исходник и пример работы в приложении к ответу

---

Comments

спасибо большое!

---

Что и относительно чего иначе?) А вообще - пожалуйста

---

подождите немного я немогу прикрепить ни файла ни ссылки

---

VAR
A :array[1..50] of integer;
m,i,min,Num :integer;
Fout :text;
BEGIN
repeat
writeln('Введите длину массива');
readln(m);
if m<=1 then<br>writeln('В массиве должно быть как минимум, больше одного элемента');
until m>1;
min:=32767;
For i:=1 to m do
begin

---

writeln('введите элемент массива');
readln(a[i]);
if (A[i]>0) then begin
if(a[i])min:=A[i];
Num:=i;
end;
end
Else writeln('Элементы должны быть положительные');
end;
writeln('Номер наименьшего',Num);
begin
Assign(Fout,'MASSIV.RES')

---

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

---

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

---

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

---

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

---

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