http://mendo.mk/jforum/posts/list/8.page JForum - http://www.jforum.net

1. Да се напише програм кој овозможува внесување на N цели позитивни броеви (во 1 Д низа), а потоа го пресметува нивниот просек. (Напомена: бројот на внесените броеви N<=10).

2. Да се напише програм кој овозможува сместување на N децимални броеви во 1 Д низа, а потоа го наоѓа и испишува најголемиот број и соодветната позиција на која се наоѓа. (Напомена: бројот на внесените броеви N<=10).

3. Да се напише програм кој овозможува внесување на низа од букви, а потоа се пресметува и прикажува одредена буква на која позиција се наоѓа и колку пати се појавува во внесената низа. (Напомена: Внесениот текст да не биде подолг од 20 знака).

Благодарам однапред! ]]> http://mendo.mk/jforum/posts/preList/301/2523.page http://mendo.mk/jforum/posts/preList/301/2523.page GMT http://mendo.mk/jforum/posts/preList/301/2524.page http://mendo.mk/jforum/posts/preList/301/2524.page GMT 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.[/code]

Еве нешто пробав да направам, но ми појавува некој проблем кај n<=20. Anyone?]]> http://mendo.mk/jforum/posts/preList/301/2540.page http://mendo.mk/jforum/posts/preList/301/2540.page GMT http://mendo.mk/jforum/posts/preList/301/2541.page http://mendo.mk/jforum/posts/preList/301/2541.page GMT