Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.
24л 13л 11л 5л - емкость бочек
далее пойдут количества воды в каждой из бочек после каждого перливания
0 13 11 0
0 13 6 5
6 13 0 5
6 13 5 0
6 8 5 5
0 8 11 5
8 0 11 5
8 11 0 5
8 13 3 0
8 8 3 5
<u>8 8 8 0</u>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
var a:array[0..100,0..100] of integer;
n, m, i, j, max, col: integer;
begin
read(n);
read(m);
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
read(a[i,j]);
if max<a[i,j] then max:=a[i,j];
end;
for i:=0 to n-1 do
for j:=0 to m-1 do
if max=a[i,j] then begin inc(col); break; end;
writeln(col);
for i:=0 to n-1 do
for j:=0 to m-1 do
if max=a[i,j] then begin write(i, ' '); break; end;
end.
var p:integer;
begin
readln (p);
if (p=2)then writeln ('-1') else
writeln ((p*p-1)/2+1);
end.
var n, sum, i, j:integer;
begin
sum:=0;
write('Enter N: ');
readln(n);
writeln('Enter N numbers:');
for i:=1 to n do
begin
read(j);
sum:=sum+j;
end;
writeln('Average is ', sum/n)
end.