ПОМОГИТЕ ПЛЗ :) Turbo Pascal ;)

[Troll]

Сообщение от Detka

ЖВ)) надо надо,только я хз как все это делать

Т.е. совсем? Что именно вызывает затруднение?

[Detka]

эм...программа )) сама по себе.Не знаю турбо паскаль,ни разу не была на лекциях ЖВ

[http://.udomlya.ru/uf/]

Сообщение от Detka

эм...программа )) сама по себе.Не знаю турбо паскаль,ни разу не была на лекциях ЖВ

Надобы посетить пару раз.

[Detka]

да там такой препод,которого понять вообще не возможно( он в простейшей блоксхеме,в которой даже циклов никаких нету,ошибки делает(((( старый маразматик))))))

[Detka]

ну пожаааалуууйстаааа,последний рааааз(((((

[Detka]

народ, я не знаю ТП,но подскажите пожалуйста,как от избавиться от ошибки 14(неправильно задано имя файла)?

[домовая]

ипать колотить, факинблонд ^_^
переименовываешь! перезадаешь! прыгаешь с моста, бросаешь институт, выходишь замуж!

[Detka]

эм...а можно без моста? %))))

[Detka]

Ребята,у меня программа не пашет почему-то...
подскажите,что не так...


var N,i,k :integer;
a,s :real;
label vvod;
begin
vvod: writeln ('skolko budet 4isel?');
readln(n);
if N<1 then
writeln ('nelzya rassmatrivat menwe odnogo 4isla');
goto vvod;
end;
s:=0;
k:=0;
for i:=1 to N do
writeln ('vvedite o4erednoe 4islo');
readln(a);
if a>0 then
k:=k+1;
s:=s+1;
end;
s:=s/k;
writeln ('srednee zna4enie:',s);
end.

[slonik]

Сообщение от Detka

Ребята,у меня программа не пашет почему-то...
подскажите,что не так...


var N,i,k :integer;
a,s :real;
label vvod;
begin
vvod: writeln ('skolko budet 4isel?');
readln(n);
if N<1 then
writeln ('nelzya rassmatrivat menwe odnogo 4isla');
goto vvod;
end;
s:=0;
k:=0;
for i:=1 to N do
writeln ('vvedite o4erednoe 4islo');
readln(a);
if a>0 then
k:=k+1;
s:=s+1;
end;
s:=s/k;
writeln ('srednee zna4enie:',s);
end.

А что программа должна делать? Все телепаты в отпуске. Есть предположение после каждого then написать begin, после do тоже написать begin, s:=s+1 заменинь на s:=s+а, после s:=s+а написать ещё один end и перед s:=s/k проверять на к=0.