Viết chương trình nhập vào dãy số và in ra các số chẵn (sủ dụng mảng)

0 bình luận về “Viết chương trình nhập vào dãy số và in ra các số chẵn (sủ dụng mảng)”

1. Uses crt;

   Var A:array[1..1000] of integer;

   n,i:integer;

   Begin Clrscr;

   Writeln(‘Nhap pt N vao: ‘); Readln(n);
   For i:=1 to n do
   Begin
   Repeat
   Writeln(‘Nhap phan tu thu ‘,i,’: ‘); Readln(A[i]);
   Until (n mod 2 = 0);
   End;
   For i:=1 to n do if A[i] mod 2=0 then write(A[i]:3);
   Readln;
   End.
   *Nhớ tick và chọn làm c/tr/loi hay nhất giúp mình nhé!Thank trước: D
   *P/s: Cảm thấy khó hiểu, thắc mắc -> Comment để giải đáp!

   Bình luận

2. program:ct;

   uses crt;

   var A:array[1…1000]of integer;

   n,i:integer;

   s:longeint;

   begin

   clrscr;

   writeln(‘nhap so n:’);readln(n);

   for i:=1to n do

   begin

   writeln(‘nhap phan tu thu’,i,’:’);readln(i);

   Bình luận