Элемент массива с наименьшим значением и его номер

@костик · Регистрация: 03.02.2010

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

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

@Тамила · 03.02.2010, 15:29

Pascal

uses crt;
var
a:array[1..100]of integer;
i,n,min,kol,pos:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
for i:=1 to n do
write(a[i],'  ');
writeln;
min:=100;
for i:=1 to n do
if (a[i]>0)and (a[i]<min) then
 begin
  min:=a[i];
  pos:=i;
 end;
writeln('min=',min,' in position=[',pos,']');
kol:=0;
for i:=1 to n do
if a[i]=min then inc(kol);
writeln('min element=',min,' vstrechaetsya ',kol,' raz');
readkey;
end.

@костик · 03.02.2010, 18:11 **[ТС]**

спасибо)

@костик 0 / 0 / 0 Регистрация: 03.02.2010 Сообщений: 5
		1
	Элемент массива с наименьшим значением и его номер 03.02.2010, 14:39. Показов 991. Ответов 2 Метки нет (Все метки) Найти элемент с наименьшим значение и его номер среди положительных элементов массива. Определить сколько раз элемент с этим значением входит в массив. 0

@костик 0 / 0 / 0 Регистрация: 03.02.2010 Сообщений: 5
	03.02.2010, 18:11 [ТС]	3
	спасибо) 0

Элемент массива с наименьшим значением и его номер

Решение