Sử dụng chương trình pascal có sử dụng mảng Nhập một dãy gồm 4 số và xuất ra số thứ ba trong dãy số
2 câu trả lời
Program CT;
Uses crt;
Var i:integer;
A:array[1..4] of integer;
Begin
Clrscr;
For i:=1 to 4 do
Begin
Write('nhap mang A[',i,']='); readln(A[i]);
End;
Writeln('phan tu thu ba la',A[3]);
Readln
End.
program oken;
uses crt;
var a: array[1..4] of integer;
i: byte;
begin
clrscr;
writeln('Nhap mang A');
for i:=1 to 4 do
begin
write('A[',i,']: '); readln(a[i]);
end;
writeln('Phan tu thu 3 trong mang: ',a[3]);
readln;
end.
Câu hỏi trong lớp
Xem thêm
