Liu kang, читай книгу в 5-6 постах назад тама всё с элиюстрациями и заданиями изложено! Я по Турбо паскалю лучше не находил! Хоть и фармат не оч но книга хорошая! 20 глав где-то!:-)

у меня нема компа))))))) блин... памагите кто нить.....

Liu kang, а как ты тогда пишешь???

Liu kang,дык иди к в библиотеку бери книгу и читай или купи! Или за школьный траф качни! 500 кб вроди не много! Ы! а так за тя всю жизнь не кто задачки решать не будет!!!

Liu kang, плохо, что такую задачу сам не можешь сделать. Ну, принимай Program Liu_kang; Var a : array [1..10] of integer; i, ind : byte; min : integer; BEGIN Writeln ("Введите массив:"); for i := 1 to 10 do Read (a); min := a[1]; ind := 1; for i := 2 to 10 do if a < min then begin min := a; ind := i; end; Writeln; Writeln ("Номер минимального элемента : ",ind,", его значение : ",min); END.

K!LT, хорош им памахать а то они так вобще ничего не будут учить!:-(

Пирвет всем. памагите решить задчку.: Задача по строковым данным. Вводится фраза, надо удалить всё, что стоит в правильно расставленных скобках(есть открывающая и соответствующая ей закрывающая) вместе со скобками.заранее благодарен.

Блин, памагите, прашу

Лиу канг: uses crt; var s,a:string; i,d,f,g,h:integer; begin clrscr; write("Vvedite stoku: "); read(s); a:=s; for i:=1 to length(s) do begin if s="(" then begin inc(g); d:=i; end; if s=")" then begin inc(h); f:=i; end; if (g=h) end (f>d) then delete(s,d,abc(f-d+1)); end; if a=s then write("Skobki postavleni nepravilno :)") else write(s); readkey; end.

Лиу канг: uses crt; var s,a:string; i,d,f,g,h:integer; begin clrscr; write("Vvedite stoku: "); read(s); a:=s; for i:=1 to length(s) do begin if s="(" then begin inc(g); d:=i; end; if s=")" then begin inc(h); f:=i; end; if (g=h) end (f>d) then delete(s,d,abc(f-d+1)); end; if a=s then write("Skobki postavleni nepravilno :)") else write(s); readkey; end.

Лиу канг: Не знаю почему но он не хочет писать квадратные скобки. Пусть тогда знак вопроса будет квадратной скобкой ?=[

Лиу канг: uses crt; var s,a:string; i,d,f,g,h:integer; begin clrscr; write("Vvedite stoku: "); read(s); a:=s; for i:=1 to length(s) do begin if s?i?="(" then begin inc(g); d:=i; end; if s?i?=")" then begin inc(h); f:=i; end; if (g=h) and (f>d) then delete(s,d,abc(f-d+1)); end; if a=s then write("Skobki postavleni nepravilno ") else write(s); readkey; end.