Programlama Sitesi Hazır Program | C++ Builder Java C/C++ Php .Net

Pascal programlama dilinde yazılmış bu programda index numarası çift olan dizi elemanları bastırılmaktadır. 20 elemanlı bir dizinin kullanıldığı bu programda dizi elemanları konsol üzerinden kullanıcıdan alınmaktadır.

Program  Kodu:

program bst_5_6;
uses crt;
var
i,a:integer;
Dizi2:array[1..20] of integer;
 
begin
writeln('Soru BST_5_6');
for i:=1 to 20 do
begin
readln(a);
Dizi2[i]:=a;
end;
writeln('Dizi : ');
i:=2;
 while(i<19) do begin writeln(Dizi2[i]); i:=i+2; end;
readln;
 
 
end.