Требуется помощь в решении задачи в Turbo Pascal

[Антон 52]

Вот собственно что мне прислали....есть ли кто сможет помочь?

  Показать контент

 

 

[Evolution 243]

  В 01.12.2015 в 15:01, Антон сказал:

Вот собственно что мне прислали....есть ли кто сможет помочь?

  Показать контент

 

 

забыл в if(x>0) дописать. А чем помочь то?

[Антон 52]

  В 01.12.2015 в 15:09, Evolution сказал:

забыл в if(x>0) дописать. А чем помочь то?

можно контакты Ваши?

[Антон 52]

  В 01.12.2015 в 15:09, Evolution сказал:

забыл в if(x>0) дописать. А чем помочь то?

[Evolution 243]

  В 01.12.2015 в 15:28, Антон сказал:

можно контакты Ваши?

пиши  в лс скайп свой

[sniper 47]

Школьник детектед

[Антон 52]

  В 01.12.2015 в 15:46, sniper сказал:

Школьник детектед

Знакомая попросила....а я вообще 0.....

[Mizuwokiru 181]

Лучше саму задачу скинь, а то фиг поймешь, что нужно сделать. 

Вот работающая программа, сделанная на основе записей, но за валидность не отвечаю (условие не известно):

  pascal (Показать контент)

program Dobutok;

uses crt;

 

var x, d: Integer; i, n: Byte;

 

begin

    d := 1;

    ClrScr;

    Write('Введiть N: ');

    Read(n);

    for i := 1 to n do

    begin

        Write('Введiть ', i, '-е число: ');

        Read(x);

        if x > 0 then 

            d := d * x;

    end;

    Write(d)

    ReadKey;

end.

Изменено 1 декабря, 2015 пользователем DiQuero