Question

se dă un vector cu n componente întregi:
a) să se afişeze la ecran componenta a 4-a şi a 9-a.
b) să se mărească cu 5 prima şi ultima componentă

Answer 1

var

a:array of integer;
n,i:integer;

Begin

read(n);

setlength(a,n);

for i:=1 to n do
read(a[i]);

writeln(a[4],' ',a[9]);

a[1]+=5;
a[n]+=5;

End.