Giả sử đã khai báo Biến mảng một chiều B gồm 30 phần tử kiểu nguyên . Viết đoạn lệnh a) khởi tạo ngẫu nhiên giá trị cho 30 phần tử của mảng B (-20≤Bi≤20) b) thông báo ra màn hình tổng tất cả của các phần tử của mảng B máy tính đã khởi tạo
1 câu trả lời
uses crt;
var B : array[1..30] of integer;
i, N, S : integer;
begin
clrscr;
S := 0; randomize;
write('Nhap so phan tu : '); readln(N);
for i := 1 to N do
begin
B[i] := random(20) - random(20);
writeln('Phan tu thu ', i ,' : ', B[i]);
S := S + B[i];
end;
write('Tong S = ', S);
readln
end.
