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
2 câu trả lời
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.
Phần tử ở giữa là tên dãy[số lượng div 2];
program bai_giai;
uses crt;
var A:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
write(A[n div 2]);
readln;
end.
Câu hỏi trong lớp
Xem thêm
