Viết chương trình nhập vào mảng 1 chiều gồm n phần tử in mảng vừa nhập ra màn hình

 

Viết chương trình nhập vào mảng 1 chiều gồm n phần tử in mảng vừa nhập ra màn hình

 

 

 

 

 

 

 

viết chương trình nhập mảng 1 chiều gồm n phần tử và in ra màn hình các số chẵn trong mảng

 

Hỏi:

viết chương trình nhập mảng 1 chiều gồm n phần tử và in ra màn hình các số chẵn trong mảng

 

 

viết chương trình nhập mảng 1 chiều gồm n phần tử và in ra màn hình các số chẵn trong mảng

 

 

Đáp:

 

Program     sochan;

uses             crt;
var                n，i:integer;                     a:array[1..100] of integer;

begin

                     clrscr;                     write(‘nhap n:’);readln(n);

                     for i:=1 to n do

                     begin                      write(‘a[‘i’]=’);readln(a[i]);

                     end;

                    for i:=1 to n do
                     if a[i] mod 2= then                     writeln(a[i]，’ la so chan’);                     readln;

end.

 

chúc bạn học tốt nha :))

 

Program     sochan;

uses             crt;
var                n，i:integer;                     a:array[1..100] of integer;

begin

                     clrscr;                     write(‘nhap n:’);readln(n);

                     for i:=1 to n do

                     begin                      write(‘a[‘i’]=’);readln(a[i]);

                     end;

                    for i:=1 to n do
                     if a[i] mod 2= then                     writeln(a[i]，’ la so chan’);                     readln;

end.

 

chúc bạn học tốt nha :))

 

Program     sochan;

uses             crt;
var                n，i:integer;                     a:array[1..100] of integer;

begin

                     clrscr;                     write(‘nhap n:’);readln(n);

                     for i:=1 to n do

                     begin                      write(‘a[‘i’]=’);readln(a[i]);

                     end;

                    for i:=1 to n do
                     if a[i] mod 2= then                     writeln(a[i]，’ la so chan’);                     readln;

end.

 

chúc bạn học tốt nha :))