Anonymní profil Average – Programujte.com

to Jozo0025, díky moc, koukám že zas tak lehký to nebylo

wen napsal:
Zkus napsat kus kodu co mas...a co ti nebezi? Abychom to pripadne doladili

 Program Pole;

            uses crt;

            var p: array [1..20] of integer;

                  i: integer;

            begin clrscr;

            write ('Zadej cisla: ');readln(i)

            FOR i:1 TO 20 DO IF 

Nevíte někdo jak vyřešit tento program: Je zadáno počet prvků do 20; prvky vložit do pole a sečíst zvlášť čísla na sudých postech a zvlášť čísla na lichých postech. Vypadá to jednoduše, ale mě to prostě nejde.

for i:=1 to length(veta) do

To jozo0025, díky, máš to u mě :smile2:

Santas napsal:
To jelis : sprav si for "dlzky" na pocet znakov vo vete
potom donho daj podmienku ktora otestuje ci je "intova hodnota charu" v rozmedzi od 65 do 95
a ak ano pridaj 1 nejakemu cislu, v ktorom bude pocet velkych pismen

Zdravim, mám udělat jeden prográmek. Nemám na programování absolutně hlavu tak bych potřeboval, jestli by jste mi to někdo neudělal. Zadání zní: Napiš větu a zjisti kolik tam je velkých písmen a která, měl jsem se podívat do ASCII tabulky na ty velká písmena a našel jsem čísla 065 - 095, že jsou velká, jestli to teda k něčemu je. Potřeboval bych to v co nejjednodušší formě aby to nevypadalo moc chytře na mě :), jinak jsme brali řetězce string s FOR cyklem, tak aby to bylo kdyžtak něco na tento způsob. Díky moc