c:=0;
for i:=1 to 9 do
if a[i]>a[9] then begin
c:=c+1;
t:=A[i];
A[i]:=A[9];
A[9]:=t;
end;
c := 0;
for i := 0 to 8 do
if A[i] < A[i+1] then
begin
c := c + 1;
t := A[i];
A[i] := A[i+1];
A[i+1] := t;
end;
c := 0;
for i := 1 to 9 do
if A[i] < A[0] then
begin
c := c + 1;
t := A[i];
A[i] := A[0];
A[0] := t;
end;
s:=0;
n:=10;
for i:= 1 to n-1 do begin
s:=s+A[i]*A[i]-A[i+1]*A[i+1];
end;
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть