Viết pt nhập, xuất mảng 10 phần tử kiểu số nguyên. giúp mk nha mn mk voite đều đều 5 s
2 câu trả lời
program oken;
uses crt;
var a: array [1..10] of integer;
i:integer;;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']: '); readln(a[i]);
end;
write('10 phan tu cua mang a: ');
for i:=1 to 10 do
write(a[i],' ');
readln;
end.
program giup;
uses crt;
var a:array[1..10] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('nhap so thu ',i,': ');
readln(a[i]);
end;
for i:=1 to 10 do
writeln(a[i]);
readln;
end.
