giúp mình vớiCho 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ãyc) tìm số lớn nhất nhỏ nhất d) in ra màng hình kết...
Đọc tiếp
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ả
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.
cảm ơn bác nhiều nhe