Всем доброе время суток, Нужно написать маленькую програмулину на Паскале помогите кт

[sssnake13]

вот задание:
Имееться одномерный массив A, состоящий из N произвольных чисел, (A(N))
среди которых есть отрицательные, положительные и равные нулю. составить программу, выполняющую задачу: написать сумму элементов, предшествующих максимальному числу.

Comments

[мой оверкиль]

Program xxx;
Var a:array[1..N] of integer;
i,S,k,max:integer;
Begin
For i:=1 to N do begin
Readln (a[i]);
end;
max:=0;
For i:=1 to N do begin
If a[i]>max then max:=a[i];
k:=i;
end;
S:=0;
For i:=1 to k do begin
S:=S+a[i];
end;
Writeln(S);
end.

кажется как-то так. но я не проверяла в Паскале

[mr Gray]

sssnake13
Вот здесь очень коротко и просто описано - что такое массивы в паскале. Прочитайте это объяснение - не понять его почти невозможно.

Вот вам две функции - первая возвращает индекс максимального элемента массива, а вторая считает сумму всех элементов, вплоть до этого индекса. Попробуйте вызвать их самостоятельно. Если не получится - напишите, и я скину весь код программы:

Program Mas;

const N = 10;
var A:array [1..N] of real = (1, 2, 3, 4, 25, 6, 7, 8, 9, 10);

function GetMaxNumber:integer;
var i, MaxId: integer;
Begin
  MaxId := 1;
  for i := 2 to N do
    if A[i] > A[MaxID] then MaxID := i;  //Если этот элемент массива больше запомненого, запоминаем его как наибольший
  GetMaxNumber := MaxID;
end;

function SumUntil(MaxID:integer):real;
var i: integer;
    sum: real;
Begin
  sum := 0;
  for i := 1 to MaxID-1 do sum := sum + A[i];  //Суммируем элементы массива с индексами от 1 до MaxID
  SumUntil := sum;
end;

Begin
{Здесь нужно организовать вызов функций}
end.

Savka.
Ваш код не учитывает то, что по условию задачи в массиве могут быть отрицательные элементы. И еще begin немного не там:

For i:=1 to N do
If a[i]>max then  begin 
                            max:=a[i];
                            k:=i;
                          end;

[sssnake13]

mr Gray не получаеться я в програмировании не селен по этому к вам и обртился

[mr Gray]

sssnake13
Вот вся программа:

Program Mas;

const N = 10;
      A:array [1..N] of real = (1, 2, 3, 4, 25, 6, 7, 8, 9, 10);

function GetMaxNumber:integer;
var i, MaxId: integer;
Begin
  MaxId := 1;
  for i := 2 to N do
    if A[i] > A[MaxID] then MaxID := i;
  GetMaxNumber := MaxID;
end;

function SumUntil(MaxID:integer):real;
var i: integer;
    sum: real;
Begin
  sum := 0;
  for i := 1 to MaxID-1 do sum := sum + A[i];
  SumUntil := sum;
end;

Begin
  Writeln(SumUntil(GetMaxNumber));
  Readln;
end.

[sssnake13]

mr Gray, ОГРОМНОЕ вам ЭЛЕКТРОННОЕ СПАСИБО )))