khai báo một mảng số nguyên B có kích thước 200, a) nhập số phần tử cho mảng , b) phát sinh ngẫu nhiên gtrị cho các phần tử mảng B , c) in B ra màn bình d) tính và đưa ra màn hình tổng các phân tử ở vị trí lẽ
khai báo một mảng số nguyên B có kích thước 200, a) nhập số phần tử cho mảng , b) phát sinh ngẫu nhiên gtrị cho các phần tử mảng B , c) in B ra màn bình d) tính và đưa ra màn hình tổng các phân tử ở vị trí lẽ
program mang;
uses crt.
var B:array [1..200] of integer;
n,i,T: integer;
Begin
clrscr;
write(‘a) Nhap so phan tu: ‘); readln(n);
writeln(‘b) Nhap gtri cho cac phan tu: ‘);
for i:=1 to n do
begin
write(‘B[‘,i,’]=’); readln(B[i]);
end;
write(‘c) Mang vua nhap la: ‘);
for i:=1 to n do
begin
write(B[i],’ ‘);
if i mod 2<>0 then T:=T+B[i];
end;
writeln;
write(‘d) Tong cac phan tu o vi tri le = ‘,T);
readln
End.