Дан массив А(30). найти сумму и количество положительных элементов, расположенных между max и min

@Bagdat · Регистрация: 07.07.2010

дан массив А(30). найти сумму и количество положительных элементов, расположенных между максимальными и минимальными элементами массива.

@Puporev · 08.07.2010, 18:53

Находишь индексы минимального и максимального, потом между тем что меньше и тем что больше считаешь сумму и количество положительных.

@Bagdat · 08.07.2010, 18:59 **[ТС]**

eshe est mneniya?

@Puporev · 08.07.2010, 19:00

Bagdat, Ты что на собрании что ли? Какие нафиг мнения, это стандартный алгоритм.

@Bagdat · 08.07.2010, 19:01 **[ТС]**

programmu mozhesh napisat?

@Puporev · 08.07.2010, 19:02

Если это будет мнение большиства....

@Bagdat · 08.07.2010, 19:15 **[ТС]**

ya za

@Puporev · 08.07.2010, 19:30

Delphi

const n=30;
var a:array[1..n] of integer;
    i,imn,imx,k,i1,i2:byte;
    s:integer;
begin
randomize;
writeln('Massiv:');
for i:=1 to n do
 begin
  a[i]:=random(50)-20;
  write(a[i],' ');
 end;
writeln;
writeln;
imn:=1;imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Min=',a[imn],' imn=',imn);
writeln('Max=',a[imx],' imx=',imx);
if imn<imx then
 begin
  i1:=imn;
  i2:=imx;
 end
else
 begin
  i1:=imx;
  i2:=imn;
 end;
s:=0;
k:=0;
for i:=i1+1 to i2-1 do
if a[i]>0 then
 begin
  s:=s+a[i];
  k:=k+1;
 end;
writeln('Kol poloz=',k,' ih summa=',s);
readln
end.

@Bagdat · 08.07.2010, 19:50 **[ТС]**

krasavchik
ot dushi

@Bagdat 1 / 1 / 0 Регистрация: 07.07.2010 Сообщений: 20
		1
	Дан массив А(30). найти сумму и количество положительных элементов, расположенных между max и min 08.07.2010, 18:45. Показов 2478. Ответов 8 Метки нет (Все метки) дан массив А(30). найти сумму и количество положительных элементов, расположенных между максимальными и минимальными элементами массива. 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.07.2010, 18:53	2
	Находишь индексы минимального и максимального, потом между тем что меньше и тем что больше считаешь сумму и количество положительных. 0

@Bagdat 1 / 1 / 0 Регистрация: 07.07.2010 Сообщений: 20
	08.07.2010, 18:59 [ТС]	3
	eshe est mneniya? 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.07.2010, 19:00	4
	Bagdat, Ты что на собрании что ли? Какие нафиг мнения, это стандартный алгоритм. 0

@Bagdat 1 / 1 / 0 Регистрация: 07.07.2010 Сообщений: 20
	08.07.2010, 19:01 [ТС]	5
	programmu mozhesh napisat? 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.07.2010, 19:02	6
	Если это будет мнение большиства.... 0

@Bagdat 1 / 1 / 0 Регистрация: 07.07.2010 Сообщений: 20
	08.07.2010, 19:15 [ТС]	7
	ya za 0

@Bagdat 1 / 1 / 0 Регистрация: 07.07.2010 Сообщений: 20
	08.07.2010, 19:50 [ТС]	9
	krasavchik ot dushi 0

Опции темы