Mógłby mi ktoś pomóc?? pitt: Hej. Mam prośbę wie ktoś może jak napisać program w turbo pascalu, który będzie wczytywał kolejne 10 liczb, trzeba użyć instrukcji iterencyjnej FOR...TO...DO. Bardzo bym prosił o pomoc

iro: dawno nie pisałem w pascalu ale spróbuje pomóc uses crt; var a:array[1..10]of integer; k:integer; begin clrscr; writeln('Wprowadź kolejno 10 liczb'); for k:=1 to 10 do read(a[k]); clrscr; for k:=1 to 10 do write(a[k],','); readln; end.

pitt: dzięki za pomoc

iro: proszę