Viết chương trình khởi tạo một mảng số nguyên .in mảng đó ra màn hình
2 câu trả lời
program bai_1;
uses crt;
var a:array[1..100] of integer;
n,i:byte; s,max,min:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end.
Đáp án:
Giải thích các bước giải:
Program so_nguyen;
Var A:array [1..100] of integer;
i,N:word;
Begin
write ('Nhap N =');Readln(N);
For i:=1 to N do
begin
write('A[',i,']=');
Readln(A[i]);
end;
Readln;
End.
