Mendo Judge Discussion Board - Forums   Search   Recent Topics   Hottest Topics     Member Listing    Back to home page

Messages posted by: Falcao98 Forum Index » Profile for Falcao98 » Messages posted by Falcao98 Author Message Други задачи » Помош :D » Go to message Program niza_od_bukvi; Var i:string; a:array[1..20]of integer; k,n:integer; Begin Writeln('Vnesuvanje na niza od bukvi'); Readln (n); n<=20 For I:=1 to N do Begin Writeln('Najdi ja ' ,i, ' tata bukva '); Readln(a[i]); End; k:=0 k=k+a[i]; Writeln('bukvata ' ,i, ' e na ' ,k, '-tata pozicija'); Readln(k); end. Еве нешто пробав да направам, но ми појавува некој проблем кај n<=20. Anyone? Други задачи » Помош :D » Go to message Ми треба помош за овие 3 задачи кои треба да се решат во Pascal, за до петок 1. Да се напише програм кој овозможува внесување на N цели позитивни броеви (во 1 Д низа), а потоа го пресметува нивниот просек. (Напомена: бројот на внесените броеви N<=10). 2. Да се напише програм кој овозможува сместување на N децимални броеви во 1 Д низа, а потоа го наоѓа и испишува најголемиот број и соодветната позиција на која се наоѓа. (Напомена: бројот на внесените броеви N<=10). 3. Да се напише програм кој овозможува внесување на низа од букви, а потоа се пресметува и прикажува одредена буква на која позиција се наоѓа и колку пати се појавува во внесената низа. (Напомена: Внесениот текст да не биде подолг од 20 знака). Благодарам однапред! Forum Index » Profile for Falcao98 » Messages posted by Falcao98 Go to:  Select a forum Добродојдовте! Општа дискусија Задачи од национални натпревари Задачи од меѓународни натпревари Други задачи Регионални натпревари Државни натпревари Македонски Олимпијади Други натпревари Pascal C/C++ Јава Други јазици

Powered by JForum 2.1.8 © JForum Team