Найти номер наименьшего элемента в массиве заданной длины среди всех положительных элементов

@L0ban0ff · Регистрация: 15.12.2017

Author24 — интернет-сервис помощи студентам

Найдите номер наименьшего элемента в массиве заданной длины среди всех положительных элементов. Длина массива вводится с клавиатуры. Когда печатать элементы массива по 5 штук, формат :11.

@L0ban0ff · 18.12.2017, 07:43 **[ТС]**

Почему в ответе выводит 1?

Pascal

VAR
A :array[1..50] of integer;
m,i,min,Num :integer;
Fout :text;
BEGIN
repeat
writeln('Введите длину массива');
readln(m);
if m<=1 then
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 then begin
min:=A[i];
Num:=i;
end;
end
Else writeln('Элементы должны быть положительные');
end;
writeln('Номер наименьшего',Num);
begin
Assign(Fout,'MASSIV.RES');
ReWrite(Fout);
writeln(Fout,'Исходный массив из ',m,' элементов');
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.

@L0ban0ff 0 / 0 / 1 Регистрация: 15.12.2017 Сообщений: 9
		1
	Найти номер наименьшего элемента в массиве заданной длины среди всех положительных элементов 16.12.2017, 12:14. Показов 2016. Ответов 1 Метки нет (Все метки) Найдите номер наименьшего элемента в массиве заданной длины среди всех положительных элементов. Длина массива вводится с клавиатуры. Когда печатать элементы массива по 5 штук, формат :11. 0

	18.12.2017, 07:43

Найти номер наименьшего элемента в массиве заданной длины среди всех положительных элементов

Решение