singlepost

Ребята помогите пожалуйста << На главную или назад  

Сорри, что возможно нарушил какие то правила по созданию тем.
Помогите пожалуйста с паскалем, сам гуманитарий, а брат ничего не понимает в нем. Если не сложно скиньте решения. Заранее благодарен.

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

3 ответов в теме “Ребята помогите пожалуйста”

  1. 1
    Денис Оболенский ответил:

    первое:
    var a:array[1..20] of real
    i,b:integer
    begin
    For i:=1 to 20 do
    Writeln('VVedite a[',i,']:');
    Readln(a[i]);
    end;
    {массив введен, ищем макс.по модулю
    b:=a[1];
    For i:= 2 to 20 do
    If (b<abs(a[i]) then b:=a[i];
    Writeln('Max abs=',b);
    end.

  2. 2
    Денис Оболенский ответил:

    Второе:
    var a:array[1..20] of real
    i,b,s,y,:integer
    begin
    For i:=1 to 20 do
    Writeln('VVedite a[',i,']:');
    Readln(a[i]);
    end;
    b:=0
    y:=0
    For i:=20 downto 1 do
    If a[i]>0 then
    y:=i;
    For i:=20 downto (y+1) do
    If a[i]>0 then b:=i;
    For i:=y to b do
    s:=s+a[i];
    Writeln('s=',s);
    end.

  3. 3
    Денис Оболенский ответил:

    третье не знаю.

Ответить

Пожалуйста, зарегистрируйтесь для комментирования.

Клуб программистов работает уже ой-ой-ой сколько, а если поточнее, то с 2007 года.