Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngoc Anh Nguyen

viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=90). đếm và in ra màn hình số lượng các số chẵn trong mảng

 

Trần Nam Khánh
16 tháng 5 2021 lúc 9:38

uses crt;
var a:array[1..90] of longint;
    n,i:integer;
begin
    clrscr;
    write('Nhap so luong phan tu (n<=90): '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
    write('Cac so chan: ');
    for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
    readln;
end.

Nguyễn Lê Phước Thịnh
17 tháng 5 2021 lúc 9:51

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

if a[i] mod 2=0 then inc(dem);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Ngoc Anh Nguyen
Xem chi tiết
Ngoc Anh Nguyen
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Linh Chi
Xem chi tiết
Ngoc Huyen
Xem chi tiết
Nguyễn tiên
Xem chi tiết
nông thị ngân
Xem chi tiết
Khánh Linh
Xem chi tiết
Nguyen Loi
Xem chi tiết