Viết chương trình nhập 1 dãy số gồm N số nguyên(N<=30).sử dụng kiểu dữ liệu mảng. A) tính tổng dãy số B) in ra màn hình các số không âm C) đém và tính tổng các số là bội của 2 và 5
Viết chương trình nhập 1 dãy số gồm N số nguyên(N<=30).sử dụng kiểu dữ liệu mảng. A) tính tổng dãy số B) in ra màn hình các số không âm C) đém và tính tổng các số là bội của 2 và 5
program ct;
uses crt;
var A:array[1..30] of integer;
i,n,d:integer;
S,Sb:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
for i:=1 to n do
begin
S:=S+A[i];
if (A[i] mod 2=0) and (A[i] mod 5=0) then
begin
inc(d);
Sb:=Sb+A[i];
end;
end;
writeln(‘Tong cua day so do la: ‘,S);
writeln(‘Cac so ko am la: ‘);
for i:=1 to n do
if A[i]>=0 then write(A[i]:3);
writeln;
write(‘Co ‘,d,’ so la boi cua 2 va 5′);
writeln(‘Tong la: ‘,Sb);
readln;
end.
Học tốt!
Uses crt;
Var A:array[1..30] of longint;
i,s,d,t: longint;
n:byte;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
End;
s:=0;
For i:=1 to n do s:=s+A[i];
Write(‘Tong day so la: ‘,s);
Writeln;
Write(‘Cac so khong am: ‘);
For i:=1 to n do
If A[i]>=0 then Write(A[i]:5);
Writeln;
d:=0; t:=0;
For i:=1 to n do
If (A[i] mod 2=0) and (A[i] mod 5=0) then
Begin
inc(d);
t:=t+A[i];
End;
Write(‘Co ‘,d,’ so la boi cua 2 va 5′);
Writeln;
Write(‘Tong cac so do la: ‘,t);
Readln
End.