В одномерном массиве, состоящем из n вещественных элементов, вычислить:1) Максимальный по...

Question

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) Максимальный по модулю элемент массива
2) Сумму элементов массива, расположенных между первым и вторым положительными элементами.
Буду очень благодарен, если сделаете это задание!

Comments

на паскале нужно

---

Abac250, буду очень при очень благодарен)

Answer 1

Program E04;
  uses crt;
    var
      n,i,k,f: integer;
      X: array[1..50] of real;
      Max,S: real;
begin
  clrscr;
  writeln('Введите размерность: ');
  readln(n);
    writeln('Введите массив: ');
  for i:=1 to n do
    begin
      write('X[',i:2,'] ==> ');
      readln(X[i])
    end;
writeln('Исходный  массив: ');
      for i:=1 to n do
    write(X[i],' ');
    writeln;

  Max:=abs(X[1]);
    for i:=1 to n do
    if Max <= abs(X[i]) then<br>      Max:=abs(X[i]);
        writeln('Максимальный элемент по модулю: ',Max);
    i:=1;
    while (i <= n) and (X[i] <= 0) do<br>    i:=i+1;
      if i > n then
    writeln ('folse')
  else
    begin
      k:=i;
      i:=i+1;
            while (i <= n) and (X[i] <= 0) do<br>        i:=i+1;
              if i > n then
        writeln ('folse')
      else
        begin
          f:=i;
          for i := k + 1 to f - 1 do
            S:=S+X[i];
                      writeln('Сумма: ',S:5:2);
        end;
    end;
end.

Comments

))

---

можно я еще вас попрошу написать одну программу?

---

http://znanija.com/task/8213365

---

до вторника надо

---

правда мне там еще надо 6 задач, если не считать ту, которую я уже на сайт закинул)))

---

но их буду стараться сам сделать, ну а на крайняк кину сюда

---

хорошо, спасибо вам огромное