Question

đọc bài toán và thực hiện các yêu cầu bên dưới

nhập vào 1 dãy số nguyên gồm n phần A₁,A₂...A_n . hãy đếm xem trong dãy có bao nhiêu phần tử là số âm . hãy in ra các số chia hết cho 2 và 5 .

-khai báo biến

-nhập mảng 1 chiều

-viết chương trình

-in kết quả .

Answer 1

Bạn ơi! Mình viết code thôi, vì chưa có thời gian nên mình chưa test lại, bạn test lại giúp mình, nếu sai thì báo mình nha! (Bạn cố sữa lỗi trước nhé!)

program abc;

uses crt;

var

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

i, n, d, d2, d5: integer;

begin

clrscr;

write ('Nhap n: ');

readln (n);

for i:=1 to n do

begin

write ('Nhap so thu ', i, ': ');

readln (a[i]);

end;

d:=0; d2:=0; d5:=0;

for i:=1 to n do

begin

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

if a[i] mod 2 = 0 then d2:=d2+1;

if a[i] mod 5 = 0 then d5:=d5+1;

end;

writeln ('Co ', d, ' so am trong mang.');

writeln ('Co ', d2, ' so chia het cho 2.');

writeln ('Co ', d5, ' so chia het cho 5.');

writeln;

writeln ('Nhan Enter de ket thuc chuong trinh!');

readln;

end.