Question

Answer 1

uses crt;

var i,n,dem,t:integer;

a:array[1..10]of integer;

begin

clrscr;

n:=10;

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

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

writeln;

dem:=0;

for i:=1 to n do 

  if a[i]<0 then inc(dem);

writeln(dem);

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

Answer 2

 

 

 cho dãy B gồm M phần tử B1 B2 ...BM 

a tính tổng các phầm của mảng

b tìm phần tử nhỏ nhấtcuar dãy số đó