Посчитать сумму отрицательных элементов после максимального элемента в массиве(с использованием функций)

@Qwark · Регистрация: 28.01.2011

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

Посчитать сумму отрицательных элементов после максимального элемента в массиве(с использованием функций)
Есть такая задача в паскале...

Pascal

Uses
 CRT;
type
ta=array [1..20] of integer;
 
procedure vvod (Var a:ta;n:integer);
var
 i:integer;
begin
for i:= 1 to N do
begin
 write('a[',i,']:=');
 readln(a[i]);
end;
end;
 
procedure Max(a:ta;n:integer;var Num:integer);
var
 i:integer;
begin
Num:=1;
for i:= 1 to N do
if A[i]>A[num] then Num:=i;
end;
 
function Suma(Var a:ta;n:integer;Num:integer):integer;
var
 i,sum:integer;
begin
sum:=0;
for I:= Num+1 to N do
 if A[i]<0 then Sum:=sum+a[i];
Suma:=Sum;
end;
 
var
 A:ta;
 n,s,n2:integer;
begin
 write('vvod N: ');
 readln(N);
 vvod(a,n);
 max(a,n,n2);
 s:=suma(a,n,n2);
 writeln('Сумма чисел после Мах:=',s,' MAX[',n2,']:=',a[n2]);
end.

@Ar1sto · 13.01.2012, 22:50

Вот похожее
Найти сумму положительных элементов, расположенных после максимального элемента

@Qwark · 13.01.2012, 22:57 **[ТС]**

без функций я и сам сделать могу... =) нужна конвертация именно моего кода, хотя бы этого куска

Pascal

type
ta=array [1..20] of integer;
 
procedure vvod (Var a:ta;n:integer);
var
 i:integer;
begin
for i:= 1 to N do
begin
 write('a[',i,']:=');
 readln(a[i]);
end;
end;

@I2um1 · 13.01.2012, 23:01

C#

static void vvod(int[] a, int n)
{
    for (int i = 0; i < n; i++)
    {
        Console.Write("a[{0}]:=", i);
        a[i] = int.Parse(Console.ReadLine());
    }
}

@Qwark · 13.01.2012, 23:55 **[ТС]**

может пригодиться кому... тему можно закрывать )

C#

    class Program
    {
        static void vvod(int[] a)
        {
            Random Random = new Random();
            for (int i = 0; i < a.Length; i++)
            {
                a[i] = Random.Next(-10, 10);
                Console.Write(a[i] + " ");
            }
        }
 
        static int max(int[] a)
        {
            int maxvalue = a[0], num = 0;
            for (int i = 1; i < a.Length; i++)
                if (a[i] > maxvalue)
                {
                    maxvalue = a[i];
                    num = i;
                }
            return num;
        }
 
        static int summa(int[] a)
        {
            int sum = 0;
            for (int i = max(a); i < a.Length; i++)
                if (a[i] < 0)
                    sum += a[i];
            return sum;
        }
 
        static void Main(string[] args)
        {
            int n;
            Console.WriteLine("Введите размер массива");
            n = Convert.ToInt32(Console.ReadLine());
            int[] a = new int[n];
            vvod(a);
            Console.WriteLine();
            Console.WriteLine("сумма={0}", summa(a));
            Console.ReadKey();
        }
    }

@Ar1sto 17 / 17 / 4 Регистрация: 20.12.2011 Сообщений: 37
	13.01.2012, 22:50	2
	Вот похожее Найти сумму положительных элементов, расположенных после максимального элемента 0

Опции темы