Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huyền Trang

Nhập vào 100 số nguyên dương từ bàn phím in ra màn hình các số vừa nhập và đếm số lượng các số chẵn

Minh Nhân
16 tháng 3 2021 lúc 22:33

Program BTT;
Uses crt;
Var A: array[1..100] of qword;
    i,d: byte;
Begin
        Clrscr;
        d:=0;
        For i:=1 to 100 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 0 then inc(d);
        End;

        Write('Mang vua nhap: ');
        For i:=1 to 100 do Write(A[i],' ');
        Writeln;
        Write('Co ',d,' so chan');
        Readln
End.

Nguyễn Lê Phước Thịnh
16 tháng 3 2021 lúc 23:27

uses crt;

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

i,d:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

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

end;

d:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then d:=d+1;

writeln(d);

readln;

end.


Các câu hỏi tương tự
09 Lê Quang HIếu
Xem chi tiết
Ngô Thành Chung
Xem chi tiết
Đoàn Thị Thu Hà
Xem chi tiết
Thùy An
Xem chi tiết
Lan Anh
Xem chi tiết
Bin Nguyễn
Xem chi tiết
Ngọcc Ngọccc
Xem chi tiết
Mai Hạ
Xem chi tiết
Phạm Tường Vy
Xem chi tiết