Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const n=6;
- var a:array[1..n] of integer;
- var sum,i,min,max,mmax,b:integer;
- begin
- max:=0;
- min:=0;
- mmax:=0;
- for i := 1 to n do
- readln(a[i]);
- //a[i]:=random(100);
- for i := 1 to n do begin
- write(a[i],' ');
- if ((a[i] mod 11 = 0) or (a[i] mod 2 = 0)) and (a[i]>mmax)then begin
- min:=max;
- max:=mmax;
- mmax:=a[i];
- end
- else if ((a[i] mod 11 = 0) or (a[i] mod 2 = 0)) and (a[i]>max) then begin
- min:=max;
- max:=a[i]
- end
- else if ((a[i] mod 11 = 0) or (a[i] mod 2 = 0)) and (a[i]>min) then
- min:=a[i];
- end;
- writeln();
- writeln(min,' ', max,' ', mmax);
- if ((mmax mod 2 =0) and (max mod 11 = 0)) then sum:=mmax*max
- else if ((mmax mod 11 =0) and (max mod 2 = 0)) then sum:=mmax*max
- else sum:=max*min;
- writeln(sum);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement