Question

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

Answer 1

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.