Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p0;
- type mas=array [1..10] of integer;
- var a:mas;
- i,s,n,k,k1,min,max:integer;
- begin
- writeln('vvedite N');
- read (N);
- s:=0;
- for i:=1 to N do
- read(a[i]);
- for i:=1 to N do
- if a[i]<0 then s:=s+a[i];
- writeln('s=',s);
- s:=1;
- for i:=1 to N do
- read (a[i]);
- max:=a[1];
- for i:=1 to N do
- if (max(a[i])then begin max:=a[i];k:=1;end;
- min:=a[1];
- for i:=1 to N do
- if (min)a[i])then begin min:=a[i];k1:=1;end;
- if k<k1 then begin
- for i:=k1+1 to (k-1) do
- s:=s*a[i];end else begin
- for i:=k+1 to (k1-1) do
- s:=s*a[i]; end;
- writeln('max=1',max,'min=',min,'s=',s);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement