cho N và dãy số a1,a2,a3,-an tìm số ở giữa của dãy viết thuật toán và ngôn ngữ pascal 27/08/2021 Bởi Sarah cho N và dãy số a1,a2,a3,….an tìm số ở giữa của dãy viết thuật toán và ngôn ngữ pascal
var n,i:byte; a:array[1..255] of integer; begin write(‘Nhap n: ‘); readln(n); for i:=1 to n do read(a[i]); writeln; write(‘So o giua la: ‘,a[n div 2]); readln end. Bình luận
var n,i:byte;
a:array[1..255] of integer;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
read(a[i]);
writeln;
write(‘So o giua la: ‘,a[n div 2]);
readln
end.