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

@Spor · Регистрация: 21.06.2012

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

найти сумму положительных элементов массива, расположенных до минимального элемента этого массива
очень нужно( выручайте

@CodeR · 21.06.2012, 10:52

Pascal

Type mas=array[1..100] of integer;
Var A:mas;
    i,n,s:integer;
Function Min(A:mas):byte;
Var i,min1,imin:integer;
Begin
    min1:=A[1];imin:=1;
    For i:=2 to n do
     if A[i]<min1 then
      Begin
       min1:=A[i];
       imin:=i;
      End;
    Min:=imin;
End;
Begin
    write('введите размерность: ');readln(n);
    s:=0;
    For i:=1 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
     End;
    For i:=1 to Min(A)-1 do
     if A[i]>0 then s:=s+A[i];
    writeln;
    writeln('Min: ',A[Min(A)]);
    writeln('Сумма положительных элементов массива, расположенных до минимального элемента этого массива: ',s);
    readln;
 End.

@Spor · 21.06.2012, 11:03 **[ТС]**

спасибо большое! от души)

@Spor 0 / 0 / 0 Регистрация: 21.06.2012 Сообщений: 7
		1
	Процедуры и функции. Найти сумму положительных элементов массива, расположенных до минимального элемента 21.06.2012, 10:43. Показов 1157. Ответов 2 Метки нет (Все метки) найти сумму положительных элементов массива, расположенных до минимального элемента этого массива очень нужно( выручайте 0

@Spor 0 / 0 / 0 Регистрация: 21.06.2012 Сообщений: 7
	21.06.2012, 11:03 [ТС]	3
	спасибо большое! от души) 0

Опции темы

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

Решение