Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  blyat zaebal
Language: C/C++
Code:
Uses crt;
Var x:array [1..5] of integer;
i,j,j1,min,n,max,q:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
for i:=1 to n do begin
write ('Vvedite ',i, ' element ');
Readln (x[i]);
end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
if x[i]>=max then begin
max:=x[i];
j:=i;
end;
Writeln (' Maxim element = ',max);
Writeln;
min:=x[1];
for i:=1 to n do
if x[i]<=min then begin
min:=x[i];
j1:=i;
end;
Writeln;
writeln (' Minim element = ',min);
q:=x[j1];
x[j1]:=x[j];
x[j]:=q;
For i:=1 to n do write (x[i]:3);
Readln
end.
          
          
Comments: