Bài 3 a)Tìm phần tử lớn nhất của dãy số nguyên gồm n số a1, a2,..an b) Sao chép những số nguyên là số chẵn trong câu a sang mảng có tên là SOCHAN. Ai

0 bình luận về “Bài 3 a)Tìm phần tử lớn nhất của dãy số nguyên gồm n số a1, a2,..an b) Sao chép những số nguyên là số chẵn trong câu a sang mảng có tên là SOCHAN. Ai”

1. a)

   Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;
           max:=A[1];
           For i:=2 to n do
                   If A[i]>max then max:=A[i];
           Write(‘Max = ‘,max);
           Readln
   End.

   b)

   Program FNG;
   Uses crt;
   Var A,Sochan: array[1..1000] of longint;
       n,i,max,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;
           d:=0;
           For i:=1 to n do
                   If A[i] mod 2 = 0 then
                   Begin
                           inc(d);
                           Sochan[d]:=A[i];
                   End;
           For i:=1 to d do Write(Sochan[i]);

           Readln
   End.

   Bình luận