Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thùy Linh Võ

Viết chương trình nhập vào 1 dãy số, có chiều dài là N với N được nhập từ bàn phím

a) Tính tổng của các phần tử trong dãy số

b) Tìm giá trị lớn nhất của dãy

c) Tìm giá trị nhỏ nhất của dãy

d) Tính tổng các phần tử chẵn trong dãy

e) Tính tổng các phần tử lẻ trong dãy

Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 0:09

uses crt;

var a:array[1..100]of integer;

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

if ln<a[i] then ln:=a[i];

if nn>a[i] then nn:=a[i];

end;

writeln(ln);

writeln(nn);

readln;

end.


Các câu hỏi tương tự
Bùi Nam
Xem chi tiết
anh vương
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Trúc Linh
Xem chi tiết
Thùy Linh Võ
Xem chi tiết
Thiên Kim
Xem chi tiết
Ẹih bw
Xem chi tiết
erddedfrferf ffvf fd
Xem chi tiết
Thị Yến Nhi Trịnh
Xem chi tiết