Помогите составить не простую для меня программу)

Тема в разделе "Pascal and Delphi", создана пользователем ALFIR, 2 дек 2010.

Статус темы:
Закрыта.
  1. ALFIR

    ALFIR Гость

    Написать программу на языке pascal , которая для заданного массива image081.gif вычисляет сумму , произведение и количество его положительных элементов. Помогите очень надо)
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код (Text):
    sum:=0;
    multi:=1;
    count:=0;
    For i:=1 to n do
    if a[i]>0 then
    begin
    sum:=sum+a[i];
    multi:=multi*a[i];
    inc(count);
    end;
     
  3. ALFIR

    ALFIR Гость

    Спасибо большое), если не сложно, напиши прогу полностью пожалуйста, а то не до конца смог разобраться)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей