Cho mảng B một chiều gồm M phần tử. Viết chương trinh nhập giá trị vào cho mảng, sau đó in ra màn hình các phần tử các phần tử có giá trị là chẵn và l

0 bình luận về “Cho mảng B một chiều gồm M phần tử. Viết chương trinh nhập giá trị vào cho mảng, sau đó in ra màn hình các phần tử các phần tử có giá trị là chẵn và l”

1. Như này đúng ko nhỉ=))))

   uses crt;
   var A:array[1..1000]of integer;
   i,M:byte;
   begin
   clrscr;
     write (‘Nhap M ‘); readln(M);
     for i:=1 to M do
     begin
     write(‘A[‘,i,’]=’);
     readln(A[i]);
     end;
     writeln;
     write(‘So can tim la ‘);
     for i:=1 to M do
     if (A[i] mod 4=0) then write(A[i],’ ‘);
     readln
   end.

   Trả lời