Advertisement
GRcom

Untitled

Apr 25th, 2017
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.81 KB | None | 0 0
  1. const n=6;
  2. var a:array[1..n] of integer;
  3. var sum,i,min,max,mmax,b:integer;
  4. begin
  5.   max:=0;
  6.   min:=0;
  7.   mmax:=0;
  8.   for i := 1 to n do
  9.     readln(a[i]);
  10.     //a[i]:=random(100);
  11.   for i := 1 to n do begin
  12.     write(a[i],' ');
  13.     if ((a[i] mod 11 = 0) or (a[i] mod 2 = 0)) and (a[i]>mmax)then begin
  14.       min:=max;
  15.       max:=mmax;
  16.       mmax:=a[i];
  17.     end
  18.     else if ((a[i] mod 11 = 0) or (a[i] mod 2 = 0)) and (a[i]>max) then begin
  19.         min:=max;
  20.         max:=a[i]
  21.     end
  22.     else if ((a[i] mod 11 = 0) or (a[i] mod 2 = 0)) and (a[i]>min) then
  23.         min:=a[i];
  24.    
  25.   end;
  26.   writeln();
  27.   writeln(min,' ', max,' ', mmax);
  28.   if ((mmax mod 2 =0) and (max mod 11 = 0)) then sum:=mmax*max
  29.   else if ((mmax mod 11 =0) and (max mod 2 = 0)) then sum:=mmax*max
  30.   else sum:=max*min;
  31.   writeln(sum);
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement