Const n=20;
var a: array [1..n] of integer;
i,s,k,v,j: integer;
begin
for i:=1 to n do
readln (a[i]);
writeln (a);
for i:=1 to n do
if (a[i] div 100 = 0) and (a[i] div 10 <> 0) then
begin
k:=k+1;
if k=1 then s:=s+a[i];
if k=3 then s:=s+a[i]
end;
writeln (s);
for i:=1 to n do
begin
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end
end;
writeln (a)
end.
Клавиши CTRL + PAGE UP перемещается к предыдущему размещению редактирования.Сочетание клавиш CTRL + PAGE DOWN перемещает к следующему изменению расположения.