Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình có bao nhiêu giá trị là số lẻ
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình c
By Clara
program bt;
uses crt;
var a:array[1..1000] of integer;
i,n,tong,tich:integer;
begin
clrscr;
write(‘Do dai cua day la:’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
tong:=0; tich:=1;
for i:=1 to n do
begin
tong:=tong + a[i];
tich:=tich*a[i];
end;
write(‘tong cac so tu nhien nhap tu ban phim:’,tong);
writeln;
write(‘tich cac so tu nhien nhap tu ban phim:’,tich);
readln
end.
program bt;
uses crt;
var a: array[1..100] of integer;
i, n, le: integer;
begin
clrscr;
write(‘Nhap n la:’); readln(n);
for i := 1 to n do begin
writeln(‘Nhap a[‘, i ,’]=’);
readln(a[i]);
end;
le := 0;
for i := 1 to n do if a[i] mod 2 <> 0 then le := le + 1;
writeln(‘Co’, le ,’ so le co trong mang’);
readln
end.
Xin câu trả lời hay nhất ạ :3