Question

giúp mình với

Cho một dãy số gồm n phần tử ( n<=50 ) giá trị phần tử là số nguyên. thực hiện chương trình sau .

a) nhập từ bàn phím số phần tử và giá trị các phần tử 

b) tính tổng các phần tử số dương của dãy

c) tìm số lớn nhất nhỏ nhất 

d) in ra màng hình kết quả 

 

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

  if a[i]>0 then t:=t+a[i];

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(t);

writeln(ln);

writeln(nn);

readln;

end.