Var a:array[1..200] of integer;
i,n,s:integer;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
write('Tong cac so chan la ',s);
readln;
end.
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
e) In ra màn hình các số chia hết cho 3
Giúp với tớ cần gấp viết chương trình cho người dùng nhập vào một số nguyên dương lớn hơn 2 và đưa ra màn hình các số là ước của số nguyên đó.
Viết chương trình nhập vào điểm 2 môn Toán, Văn từ bàn phím. Điểm Anh văn được gán bằng 8.0 điểm. Sau đó tính tổng điểm, điểm trung bình cộng 3 môn học trên và đưa kết quả ra màn hình. (Điểm trung bình cộng lấy 1 số thập phân.) lẹ cho mình nha cảm mưn mn.
Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.
Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất.
Bài 3: khai báo biến mảng trong pascal với mô tả sau:
Biến mảng có tên theo quy tắc đặt tên, gồm 15 phần tử, mỗi phần tử là biến có kiểu số thực, chỉ số phần tử cuối là 100.
Viết chương trình nhập vào mảng A, in ra đoạn con có tổng nhỏ nhất gồm m phần tử, m nhập từ bàn phím(pascal )
Viết chương trình kiểm tra số nguyên dương n là số chẵn hay số lẻ. Với giá trị n được nhập từ bàn phím.
Xác định bài toán.Mô tả thuật toán.Viết chương trình giải bài toán.Viết chương trình tính tổng chẵn (lẻ) n số tự nhiên nhập từ bàn phím (dùng vòng lặp) Giúp vs ạ em cần gấp
Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.
Nhập 3 số nguyên a,b,c tuef bàn phím. kiểm tra và in kết quả ra màn hình 3 số đó có phải là độ dài các cạnh của 1 tứ giác hay không? Giúp mik bài này và mn ơi ="""")
