Viết chương trình nhập và xuất mảng gồm 8 phần tử Giúp mik với. Cảm ơn nhìu ạ
2 câu trả lời
uses crt;
var i:integer;
a:array[1..8] of integer;
begin
clrscr;
for i:=1 to 8 do
begin
write('Nhap a[',i,']: ');
readln(a[i]);
end;
for i:=1 to 8 do write(a[i],' ');
readln;
end.
Program BTH;
uses crt;
var a:array[1..8] of longint;
i:byte;
Begin
clrscr;
For i:=1 to 8 do
Begin
write('Nhap so thu ',i,' : ');readln(a[i]);
end;
For i:=1 to 8 do write(a[i],' ');
readln;
end
