// 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.
Wyszukiwarka

Podobne podstrony:
15 03 2008 2
Hala Dr Volt 15 03 26 Rzut dachu (1)
15 03 Elektronarzedzia
LBB9600 15 03 2006 PA PL F
2008 Metody obliczeniowe 03 D 2008 10 1 22 5 47
15 BIOCHEMIA 2008 Metabolizm weglowodorowid273
LBC3483 15 03 2006 PA PL F
03 03 2008
LBC3011 x1 15 03 2006 PA PL F
CW Psychologia Poznawcza 15 03 06
LBC3482 15 03 2006 PA PL F
LBC3086A 15 03 2006 PA PL F
LB1 UW06x x 15 03 2006 PA PL F
16 03 2008
LBC1227
15 03 2006 PA PL F

więcej podobnych podstron