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

@Oqi · Регистрация: 13.05.2013

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

1) Дан одномерный массив, который содержит не более 40 положительных и отрицательных целых чисел. Найти наименьший положительный элемент и его номер в массиве.

Помогите решить, буду очень благодарен.

@BAAAAAas · 14.05.2013, 06:32

Pascal

uses crt;
var a:array [1..100] of integer;
i,min,q,n:integer;
begin
clrscr;
randomize;
min:=40;
repeat
write('Введите кол-во элементов массива(n<=40)=');readln(n);
until n<=40;
for i:=1 to n do
  begin
     a[i]:=random(40)-20;
     write(a[i]:4);
   end;
writeln;
for i:=1 to n do
   if a[i]>0 then
       if a[i]<min then begin min:=a[i];q:=i;end;
writeln('Наименьший положительный элемент =',min,', его номер в массиве=',q);
readkey;
end.

@Oqi · 14.05.2013, 09:45 **[ТС]**

Благодарю от всей души. Выручил. А то запара с программированием. Спасибо!

@Oqi 0 / 0 / 0 Регистрация: 13.05.2013 Сообщений: 20
		1
	Найти наименьший положительный элемент и его номер в массиве 14.05.2013, 00:02. Показов 2617. Ответов 2 Метки нет (Все метки) 1) Дан одномерный массив, который содержит не более 40 положительных и отрицательных целых чисел. Найти наименьший положительный элемент и его номер в массиве. Помогите решить, буду очень благодарен. 0

@Oqi 0 / 0 / 0 Регистрация: 13.05.2013 Сообщений: 20
	14.05.2013, 09:45 [ТС]	3
	Благодарю от всей души. Выручил. А то запара с программированием. Спасибо! 0

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

Решение