Var a:array:[1..1000] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
If i mod 2 <> 0 then s:=s+a[i];
End;
Writeln('Tong la ',s);
Readln
End.
viết chương trình sd biến mảng nhập từ bàn phím các phần tử dãy các số nguyên dương. In ra tổng các số lẻ
Cho một mảng B gồm 100 phần tử có cùng kiểu dữ liệu là số nguyên Khi viết chương trình nhập và in giá trị của mảng B ra màn hình và tính tổng những phân tử có giá trị lẻ trong mảng B. Vidu: 1+2+6+5+8+7=12
nhập n các số nguyên vào mảng a ( n nhập từ bàn phím )
xuất gái trị các phần từ mảng a
tính tổng S các phần tử là số lẻtìm GTNN của mảng aĐề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy
Câu 5: Viết chương trình nhập vào một mảng số nguyên. Tính tổng các số nguyên đó.
nhập vào 1 mảng các số nguyên gồm nguyên tử tính tổng các phần tử chia hết cho 2(số chẵn)
Viết chương trình thực hiện các yêu cầu sau:
1) Nhập một mảng A có N phần tử;
2) In mảng A đã nhập ra màn hình;
3) Tìm giá trị lớn nhất (nhỏ nhất) của mảng A;
4) Tính tổng mảng A.
Câu 2 Viết chương trình nhập một mảng số nguyên A có độ dài 50 phần tử với số lượng phần tử được nhập từ bàn phím. Thực hiện in ra màn hình các số lẻ có trong mảng.
Viết chương trình tính tổng, tích các số tự nhiên nhập vào từ bàn phím (sử dụng biến mảng)
