1 2 var a:array [1..100] of integer; i:integer; 3 begin 4 for i:=1 to 10 do 5 read(a[i]); 6 for i:=1 to 10 do 8 writeln (a[i]); 9
#include #include main() { int b,a[10],k=10,i; for (i=0;iscanf("%d",&a[i]); } for (i=0;iif ((i%2)>0){ printf("\na[%d]=%d",i,a[i]); } } getch(); }