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

Question

thienthanh · Answer

Đáp án:

Giải thích các bước giả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.

havu · Answer

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.