Помогите решить задачу =)

Тема в разделе "WASM.HEAP", создана пользователем microSD, 8 апр 2008.

  1. microSD

    microSD New Member

    Публикаций:
    0
    Регистрация:
    26 мар 2008
    Сообщения:
    2
    Явно не туда (и вообще не по тематике форума), но положение безвыходное и очень срочно нужно... Просто здесь сидят серьезные умы и им это будет несложно решить =).
    Задача:
    Дана матрица А:
    -4.1 5.8 -6.7 4.3
    2.1 -5.1 6.3 -4.7


    Найти
    Р=<сумма элементов 1 строки> - <произведение элементов 2й строки>

    b [1...n, 1...m]
    bij, b[i,j]

    Решение на Турбо Паскале... Решите, пожалуйста.

    З.Ы. Начал жалеть, что вместо пар по информатике глушил пивас, думая, а нафег мне этот Турбо Паскаль...
     
  2. twgt

    twgt New Member

    Публикаций:
    0
    Регистрация:
    15 янв 2007
    Сообщения:
    1.494
    типа этого:

    var
    .......
    b:array [1..2,1..m] of real;
    .......
    s:=0;
    p:=1;
    for i:=1 to m do
    begin
    s:=s+b[1,i];
    p:=p*b[2,i];
    end;
    Result:=s-p;