Viết chương trình nhập vào mảng số nguyên gồm 10 phần tử sau đó in ra màn hình phần tử có giá trị lớn hơn hoặc bằng 9 giúp mình đi cần gấp lắm
Viết chương trình nhập vào mảng số nguyên gồm 10 phần tử sau đó in ra màn hình phần tử có giá trị lớn hơn hoặc bằng 9 giúp mình đi cần gấp lắm
Program bt;
Var A:array[1..100] of integer;
n,i:integer;
Begin
For i:=1 to 10 do
Begin
Write(‘A[‘,i,’]=’);REadln(A[i]);
End;
For i:=1 to n do If (A[i]>=9) then Write(‘Cac phan tu co gia tri lon hon hoac bang 9 la: ‘,A[i]:5);
Readln;
End.
Đây là bài làm của mình, chúc bạn học tốt nhé !