12 Kasım 2010 Cuma

dizi3

program diziler;

Var i,j, a: integer;
sira:ARRAY[0..4] of integer;


begin
writeln('sayi giriniz');


for j := 0 to 4 do

begin
readln(sira[j]);
end;

for j := 4 downto 0 do

begin
writeln('dizinin', j, 'inci elemani:', sira[j]);
end;


readln;
end.

Hiç yorum yok:

Yorum Gönder