ulohy z pascalu

• Citovať príspevok

Príspevok od používateľa Jussi » 10 jún 2009, 12:28

ahojte, potrebujem aby mi niekto vyriešil tieto priklady, vdaka

Prílohy

• Citovať príspevok

Príspevok od používateľa audiotrack » 10 jún 2009, 17:17

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]);

m:=1;
for i:=2 to n do
if a[i]>a[m] then m:=i;
write('maximalny prvok je na pozicii:', i);