pascal pytanie Opcje

[aiden]

witam
mam problem z tablicami

mój kod

program petelka;
uses crt;
var
i:integer;
dane: array[1..10] of real;
liczby:integer;
begin
for i:=1 to 10 do
if i mod 3=0 then
dane[liczby]:=i;
writeln(dane[liczby]:3);
end.

Chcę zrobić aby wyniki zapisywały się w tablicy i potem je odczytać ale coś źle mi wychodzi poniważ nie pokazuje tak jak to przy
for i:=1 to 10 do
if i mod 3=0 then
write(i:3)
3 liczby 3 , 6, 9
tylko pokazuje liczbę 9 co jest źle ?

[tiraeth]

Dawno Pascala nie ruszałem, ale spróbuj tak w pętli:

Kod

for i:=1 to 10 do
if i mod 3 = 0 then
  dane[++liczby]:=i;
writeln(dane[liczby]:3);
end.

Zakładamy, że liczby na poczatku (przed pętlą) ma wartość zero.

[aiden]

nadal to samo :/

[kwiateusz]

ładnie pieknie ale nie widze abyś do zmiennej liczby cokolwiek przypisywał... wiec to w kosmos zapisuje

mógłbym dac gotowca, ale po co pomysl pokombinuj, musisz zrobić tak zeby zmienna liczby zwiększała sie o 1 co przypisanie i tak samo z wyświetlaniem