Question

Em hãy khai báo biến mảng điểm tin gồm 10 phần tử. nhập dữ liệu cho điểm tin biết phần tử đầu tiên và phần tử cuối cùng luôn mang trị bằng 5.các phần tử còn lại mang giá trị bất kì được nhập vào từ bàn phím.mọi người giúp em với ạ.Em xin chân thành cảm ơn mọi người ạ !

Answer 1

var a:array[1..10]of real;

i,n:integer;

begin

readln(n);

for i:=1 to 10 do readln(a[i]);

end.