Viết chương trình nhập mảng số nguyên A1,A2, ….,An (n<=150). Tính Tống, Đếm và in các phần tử là số lẻ hoặc chia hết cho 7. In giá trị Tổng, Đếm. giúp mình với mình sẽ cho 5 sao nếu làm được.
Viết chương trình nhập mảng số nguyên A1,A2, ….,An (n<=150). Tính Tống, Đếm và in các phần tử là số lẻ hoặc chia hết cho 7. In giá trị Tổng, Đếm. giúp mình với mình sẽ cho 5 sao nếu làm được.
program hotrotinhoc;
var a: array[1..150] of integer;
i,d,n: integer;
t: longint;
begin
write(‘n=’); readln(n);
t:=0; d:=0;
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
if (a[i] mod 2<>0) or (a[i] mod 7=0) then
begin
t:=t+a[i];
inc(d);
end;
end;
writeln(‘Gia tri tong la :’,t);
write(‘Co ‘,d,’ so la le hoac chia het cho 7′);
readln
end.
Program BTH;
Uses crt;
Var a:array[1..150] of longint;
s,n,i:longint;
Begin
Clrscr;
Write(‘Nhap n: ‘);readln(n);
For i:=1 to n do
Begin
Write(‘Nhap so thu ‘,i,’ : ‘);readln(a[i]);
end;
Writeln(‘So chia het cho 7 la: ‘);
For i:=1 to n do
Begin
If a[i] mod 7=0 then writeln(a[i]);
s:=s+a[i];
end;
writeln(‘So le xuat hien trong day la: ‘);
For i:=1 to n do
Begin
If a[i] mod 2=1 then writeln(a[i]);
end;
Writeln(‘Tong day so tren la: ‘,s);
readln;
End.