Giúp mình vs mình cảm ơn mọi người nhiều lắm.
Viết chương trình nhập vào dãy số nguyên bất kỳ (N >= 30 ) . Tính và in ra màng hình các kết quả sau
a) dãy số nguyên vừa nhập
b) các số nguyên âm trong dãy vừa nhập
c) đếm các số nguyên chia hết cho 2 trong dãy số
Giúp mình vs mình cảm ơn mọi người nhiều lắm. Viết chương trình nhập vào dãy số nguyên bất kỳ (N >= 30 ) . Tính và in ra màng hình các kết quả sau a)
By Alexandra
#Chương trình ngắn
#Dễ hiểu
uses crt;
var n,i,b,c:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘n (N >= 30) =’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
if a[i]<0 then inc(b);
if a[i] mod 2=0 then inc(c);
end;
write(‘a) ‘); for i:=1 to n do write(a[i],’ ‘); writeln;
writeln(‘b) Co ‘,b,’ so am’);
writeln(‘b) Co ‘,c,’ so nguyen chia het cho 2′);
readln
end.
program bai_giai;
uses crt;
var A:array[1..30] of integer;
n,i,d:byte;
begin
clrscr;
write(‘Nhap so luong phan tu N: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
d:=0;
write(‘Day vua nhap la: ‘);
for i:=1 to n do
begin
write(‘A[i],’ ‘);
if A[i]<0 then d:=d+1;
end;
writeln;
if d=0 then writeln(‘Khong co so am trong mang’)
else begin
write(‘Cac so am trong mang la: ‘);
d:=0;
for i:=1 to n do
begin
if A[i]<0 then write(A[i],’ ‘);
if A[i] mod 2=0 then d:=d+1;
end;
end;
writeln;
write(‘Co ‘,d,’ so chia het cho 2 trong mang’);
readln;
end.