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

[Антон 52]

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

 

 

[Evolution 243]

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

 

 

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

[Антон 52]

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

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

[Антон 52]

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

[Evolution 243]

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

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

[sniper 47]

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

[Антон 52]

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

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

[Mizuwokiru 181]

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

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

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