15-03-2008.txt

(0 KB) Pobierz

// tablica

program Untitled;

uses CRT, DOS;

var
tablica:array[1..5] of integer;

Begin
tablica[1]:= 10;
writeln(tablica[1]);

readln;
end.


// tablica z wprowadzaniem wartosci elementu i wyswietleniem
	- narazie to nam nie jest do niczego potrzebne ;]

program Untitled;

uses CRT, DOS;

var
tablica:array[1..5] of string[20];
x:integer;

Begin
for x:=1 to 5 do;
writeln('podaj ',x,' element tablicy');
readln(tablica[x]);

for x:=1 to 5 do;
writeln;
writeln(tablica[x]);
readln;

end.

15-03-2008.txt

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: